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ABSTRACT 


The VAX/VMS graphics library routines were used in the creation of a 
menu driven, interactive program which solves basic preliminary ship design 
problems. The program uses a menu with active mouse and keyboard to select 
options, enter data, and control program execution. 

At present, the program solves transverse and longitudinal static stability 
problems and predicts the effects of shifting weight in three planes. It also 
calculates the hydrodynamic derivatives for maneuvering performance and predicts 
the turning circle characteristics of the ship. Provisions for a hardcopy, detailed 
report are also included. Space has been allocated to include future program — 
modules or user supplied programs. 
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I. INTRODUCTION 


A. PURPOSE 

Modem programming techniques endeavor to make the program transparent 
to the user. This allows users, with limited computer experience, to concentrate on 
problem solution and not on computer operation. This project was undertaken to 
lay the groundwork for an in house program containing a variety of routines for 
solving preliminary ship design problems. It is intended for use by the faculty and 
students in various ship design courses offered in the Mechanical Engineering 
Department. 

The program "Tool Box" also explores the application of Micro VMS graphics 
capabilities to the solution of engineering problems. It was designed to be a 
modular, interactive, user friendly, preliminary ship design tool. VAX FORTRAN 
was combined with User Interface Services (UIS) graphics routines to produce a 
menu driven, interactive program which can be used with a minimum of computer 
training. 

B. BACKGROUND 

FORTRAN has long been a favorite, high level, problem solving language. 

One major drawback in FORTRAN programming has always been its poor to non¬ 
existent graphics capabilities. 

The Micro VMS is supported by a large library of User Interface Services 
(UIS) graphics routines. The UIS routines can be called from high level languages 
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such as VAX FORTRAN, VAX PASCAL, VAX C and VAX PL/I, as well as VAX 
MACRO and VAX BLISS. 

The mS graphics routines allow the programmer to create, delete and modify 
multiple display windows. The graphics routines also allow object and text 
drawing, using many different fonts, line types, colors and shading. 

One very useful category, Asynchronous System Trap (AST) UIS routines, 
allow the programmer to enable routines which are triggered by specific run time 
events. 

By combining the problem solving capabilities of VAX FORTRAN with the 
mS graphics routines, user friendly programs can be written which solve complex 
problems and produce excellent graphics as well. 

Recently, a project was started in the Naval Postgraduate School Aeronautics 
Department which utilized the graphics capabilities in a FORTRAN program for 
creating curves with point inputs from the mouse. Professor R.E. Ball was kind 
enouph to furnish a copy of the AE 4900 course report and program code. This 
proved to be an excellent starting point for the current project. [Ref. 1] 

C. DOCUMENT STRUCTURE 

The remaining chapters are arranged in an order of increasing detail. 

Chapter II, OPERATING TOOL BOX, details the program capabilities and 
limitations. It then presents an example which takes the user through a problem 
step by step. This is as far as an operator needs to read to effectively use Tool 
Box. 
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Chapter m, TOOL BOX PROGRAM DESCRIPTION, describes in detail the 
program and subroutines which make up Tool box. 

CHAPTER IV, VAX VMS GRAPHICS ROUTINES, is a detailed look at the 
UIS routines used in Tool Box. This is intended to provide a starting point for 
basic graphics programming. 

D. CONVENTIONS USED 

Whenever a specific keyboard key is referred to in the text, it will be all 
capitals enclosed in square brackets, [RETURN]. 

Program or subsection options will be in all capitals, STATIC STABILITY. 
The calling statements will be in all capitals when referenced. This includes 
the arguments of the calling routine, CALL UIS$TEXT(VD_ID,4,2.5,3.0). 
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n. OPERATING TOOL BOX 


A. INTRODUCTION 

1. Program Capabilities 

"Tool Box" is a menu driven, interactive program which performs several 
functions. The current program functions can be put into two broad categories of 
Static Stability and Maneuvering Performance. 

2. Static Stability 

The initial inputs in the Static Stability section are Ship Name, Length 
(Lpp and Lwl), Beam (B), Draft (design (T) and Trial (Tt)), Displacement or Block 
Coefficient (Cb), Prismatic Coefficient (Cp), Midships Coefficient (Cm), Vertical 
Prismatic Coefficient (Cvp), and Longitudinal Center of Gravity (Xg). Initial data is 
entered using the keyboard or by reading in a previously stored data file. 

After data is entered or at any time an item is changed, the program 
calculates the Maximum Cross Sectional area (Ax), Waterplane area (Aw), Midships 
area (Am), Volume of Displacement (cubic feet), Waterplane Area Coefficient 
(Cwp), Length to Beam Ratio (L/B), Length to Draft Ratio (L/T), and an estimation 
of Vertical Center of Buoyancy (KB) using relationships derived from Introduction 
to Naval Architecture [Ref. 2]. 

a. Transverse Stability 

INITIAL TRANSVERSE STABILITY has two sections When the 
user furnishes or changes KG, GM, KM, BM or Transverse Stability Index, the 
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other variables are calculated and displayed. In order to predict specific ship 
values, two of the above items must be supplied. 

Transverse Stability Index (TSI), is a term coined in this program to 
refer to the non-dimensional quantity of GM/KM. TSI is used as a design anchor 
in an attempt to reduce the number of required arguments for transverse stability. 

A reasonable value of TSI (say 0.18) plus a desired GM or KM, yields the 
remainder of the variables. 

It would appear that TSI could be a useful quantity in that ships of 
similar type appear to have similar TSI. It also gives a very nice working range 
for the relative transverse stability of the ship, since it should be between 0 
(borderline transverse stability) and 1.0 (maximum stability). This needs more study 
as the number of ships looked at is small. Several ships are tabulated and their 
calculated TSI are shown in Table 1. 

After the ship’s KG, GM, KM, and BM are calculated, the next 
section can be used to see the effects of weight addition or removal in the vertical 
and transverse directions. The effects on ships displacement, draft, list angle, KG, 
KM, GM, and BM are shown. The actual baseline ship data is not altered. In this 
way, many off-baseline effects can be studied without affecting baseline data. 
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SH1 P 

DISPLACEMENT 

GM 

KM 

TSI 

i 

Mariner Standard Cargo 

22630 

1 

5. 0 

31.09 

. 161 

Hi oak Hulk Cargo 

2123b 

3.6 

34.6 

. 104 

Combination Passenger, 
reefer, Container 

19799 

3.2 

33.8 

. 095 

Container Ship 

339?4 

5. 0 

40. 15 

. 125 

Barge Carrying (Gantry) 

32800 

8. 0 

48.82 

. 164 

Barge Carrying (elevator) 

4 4500 

7.6 

59.35 

. 128 

Tanker 

90,400 

21 

52.67 

.399 

Ore Carrier 

66,200 

15.7 

42.2 

.372 

Survey Ship Discoverer 

3702 

3. 12 

24.0 

. 13 

DD692 

3000 

3.7 

24.0 

. 192 


All data with the exception of DD692 are from 
Amol in M. I)'Arcangelo, Ship Desig n a n d Const r uctio n. The Society of 
Maval Architects and Marine Engineers, p. 30, 1969. Data for DD692 
is taken from [Ref. 11. 


Table I. Transverse Stability Index for Several Ships 
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b. Longitudinal Stability 

The Longitudinal Stability section is partitioned the same way as the 
Transverse section. Part 1 calculates GML, BML, KML, KG, II, Cwl and moment 
to trim an inch whenever one of these values is entered or changed. Part 2 shows 
the effects of weight addition or removal along the longitudinal axis on 
displacement, trim, and trim angle. As in the transverse section, the weight shift 
changes do not alter the baseline data. 

3. Maneuvering Performance 

The University of Michigan has developed a program for use on the 
MACKINTOSH, which provides the user with a tool for estimating the 
hydrodynamic derivatives of a surface ship, based upon physical ship parameters. 
The program also predicts the turning and steering perfomance of the ship based 
upon those same parameters. This work provided a starting point for the 
capabilities to be programmed for Tool Box. It also provided a good sample 
problem to compare the results of the present project with. [Ref. 3] 

The Maneuvering Performance section uses input data which is similar to 
that used for the static section, but the two are separate independent programs and 
data files should not be mixed. 

Data for a baseline ship is input by keyboard or from a previously stored 
data file. The input consists of seventeen pieces of ship data as shown in Figure 1. 
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After data input, either the Dynamic Performance or Turning Circle Performance 
can be calculated and displayed. The display data can also be stored at any point 
while in the Maneuvering section. 

a. Dynamic Performance 

The Dynamic Performance section uses the base line data to estimate 
the hydrodynamic coefficients. Then, based upon the coefficients, it calculates the 
turning index, stability index, and the dynamic stability of the ship. For a review 
of the derivation of the hydrodynamic coefficients and the estimating methods see 
Appendix A. 

If the user has good estimates of the actual hydrodynamic 
coefficients, they can be input and the results of such a change on the performance 
is immediately displayed on the screen. When user supplied coefficients have been 
entered, they are also stored with the baseline data whenever the file is stored. 

These user supplied coefficients become part of the written report, if a report is 
generated. 

b. Turning Circle Performance 

The Turning Circle Performance can also be calculated from the input 
baseline data. Ship Length, Beam, Draft, Displacement, Block Coefficient, Rudder 
Angle and Approach Speed are displayed and can be changed. The changes cause 
the baseline data to be modified and are reflected in recalculation and display of 
Steady Turning Diameter (STD), Tactical Diameter (TD), Advance (AD). Transfer 
(TR), and Turning Speed (Vt). 
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Ship File Name is displayed in order to change the file name if the 
changes are to be saved in a different file. 

4. Reports 

The program will generate reports of either Static Stability or 
Maneuvering Performance if a data file has been saved from the section. 

The Static Stability Report reads in the baseline data, does the section 
calculations and produces a user named file. The report file is formatted for a 59 
line printer and provides a more complete set of calculations than the screen 
presentation. An example report is included in Appendix B. 

A feature of the Static Stability Report section is the ability to perform 
several iterations of stability calculations over a specified range of TSI holding GM 
constant. This is not available in the interactive screen section. 

The Maneuvering Performance Report is also generated from a previously 
stored baseline file. If the baseline file contains user supplied hydrodynamic 
coefficients, the report generates an additional two pages to incorporate the data. 

This report is also more detailed than the screen presentations and is formatted for a 
59 line printer. An example of the Maneuvering Report is included in Appendix C. 

5. Utilities 

The FILE UTILITIES section allows the user to execute routine DCL 
commands without exiting the program and losing program time and data. Nearly 
all DCL commands can be run with the exception of changing the default directory. 
This will not work since the active director)- is locked with Tool Box execution. 
Utilities can rename, move, edit and print files just to name a few DCL options. 
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The option is selected by moving the mouse pointer into the FILL 
UTILITIES rectangle and depressing the left mouse button. After the DCL 
commands have been run, return the Main Menu by depressing the [RETURN] key 
without data entry. 

B. PROGRAM LIMITATIONS AND ASSUMPTIONS. 

There are several limitations placed upon the program. Some of the 
limitations are software limitations and some are associated with the computation 
methods used. 

Small angle approximations were assumed in the static stability calculations 
which limit the usefulness of the angles to less than seven degrees. In the weight 
shift calculations, it was further assumed that the water plane area and the moments 
of inertia were constant throughout the range of interest. 

In Static Stability and Maneuvering Performance, the input character strings 
for ship/file name are limited to eight characters. When a file is stored, the 
ship/file name becomes the FILENAME. An automatic file extension of .DAT is 
used for stored data. 

File names used in the Report section may contain 12 characters including a 
period. Generally the format is an eight character file name plus a period, plus a 
three character file extension (FILENAME.FILETYPE). If a longer name is to be 
given to a file, the utility section of the program can be used to RENAME the file 
with up to 64 characters. This 64 characters include filename and extension 

Input strings for numerical data can contain up to 12 characters including a 
period. All floating point information is handled in a G12.5 format. 
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The program is specifically written for salt water using English units of feet, 
long tons and inches. All angles are in degrees. 

Files from Static Stability and Maneuvering Performance are not 
interchangeable and care must be used to keep from mixing the two. 

C. AN EXAMPLE 

In order to demonstrate Tool Box more fully, an example is presented. This 
example will use DD692 and applicable data as found in Reference 2. 

1. General User Instructions 

Tool Box was written to be easy to operate and there are only a few 
general rules for getting around the program. 

To select an option, move the mouse pointer to the option rectangle. 

When the option highlights, depress the left button of the mouse. This initiates the 
option and instructions or status reports will be displayed. 

If the program is executing a keyboard interactive subsection, the required 
action is presented as a user instruction or prompt. 

In order to exit any keyboard interactive subsection, depress [RETURN] 
without any other data input and watch for new instructions. This terminates the 
option action and returns control to the displayed menu. 

If EXIT THE PROGRAM is selected before data is stored, the data is 

lost. 

Data which has been input remains active in its particular 
section/subsection until changed or until the main program is exit'd. The user is 
free to move around within the program without loss of data in any subsection 
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2. General Observations. 


Occasionally, the program will be slow to respond or will appear inactive 
for a short period of time. Simply wait a few seconds for the system to become 
responsive and continue the program. 

It has been observed that the default display used in the Utilities mode 
sometimes does not automatically gain control of the keyboard when Utilities is 
called up. In these cases, place the pointer on the display and depress the left 
button to assign the keyboard. 

Response time is increased if there is only one active window on 
VAX/VMS prior to running Tool Box. 

3. Static Stability of DD692 
a. Getting Started 

Before starting Tool Box, assemble the data needed to run the 
problem. A worksheet for Static Stability is found in Appendix D. Log into the 
Micro Vax system as normal and RUN TB. A display screen, Figure 2, will be 
created on the screen. 

Select STATIC STABILITY by moving the mouse pointer into the 
rectangle labeled STATIC STABILITY. When the rectangle becomes highlighted, 
depress the left button on the mouse. 
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After a moment, the INITIAL STABILITY WINDOW, Figure 3, 
should appear as the active or top display. 

b. Entering and Storing Data 

The next step will be to create a data file from the keyboard. Place 
the mouse pointer on the ENTER DATA FROM KB option and when highlighted, 
depress the left mouse button. The display should change to resemble Figure 4, 
except, at this point, the data displayed is dummy data to prevent divide by zero 
errors during data entry. 

At the bottom of the display, in the instruction area, note the 
instruction to ENTER A LINE NUMBER OR [RETURN] TO EXIT. This is where 
all instructions will be displayed or status written. 

First, enter line number one (1), and [RETURN], The instruction 
changes to ENTER A NEW SHIP NAME. Enter a ship name, DD692S, of up to 
eight characters. Notice tnat the keystrokes are echoed in the RESPONSE AREA 
of the display. Before [RETURN] is depressed, the line can be edited using 
backspace and retyping. When [RETURN] is pressed, the response area is cleared 
and the new ship name is displayed in its proper place on the DATA DISPLAY 
AREA. 

Each item on the screen with a line number can be changed with 
the keyboard. Items without line numbers are calculated values only and can not be 
changed by keyboard entry. 
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INITIAL STABILITY WINDOW 



Figure 3 Initial Stability Window After Option Selection 
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Figure 4 Initial Stability Window After Keyboard Data Entry 
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[RETURN] TU EXIT LENGTH TO DRAFT . L/T. .. 29.46 



































Enter the data as shown in figure 4. As data is entered, the 
***RESULTS*** section is continually updated with each [RETURN] key. 

When all data has been entered, depress the [RETURN] key one last 
time without any preceding data. The program returns control to the Initial Stability 
menu and the instruction will read SELECT AN OPTION WITH THE MOUSE. 

At this point, select the STORE DISPLAYED DATA option. The 
input data is stored automatically, using the Ship Name as the filename and DAT as 
the file extension. The display should now look like Figure 5. This file 
DD692S.DAT, now has all of the data needed to reconstruct the data on the display, 
if needed in the future. 

In order to read a previously stored file, select INPUT DATA 
FROM A FILE with the mouse. The instruction will be ENTER THE FILE NAME 
AND FILE EXTENSION. Key in the file name which contains the required data 
and enter [RETURN]. The contents of the file will be read in and the display will 
be like Figure 4. 

It is important to remember that the files for Static Stability and 
Maneuvering Performance are formatted differently and should not be interchanged. 
c. Initial Transverse Stability 

After data has been entered, the program can begin stability 
calculations. Select the INITIAL TRANS. STABILITY option with the mouse. 

The display will change and will appear like Figure 6. 
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In order to get proper results, 2 of the data lines 2 through 6 must be supplied. At 
this time, enter a TSI of .192 and a GM of 3.7 feet. Notice that whenever an item 
is input, the others are recalculated and displayed at the [RETURN]. The display 
now appears like Figure 7. 

After lines two to six have been computed, the weight shift portion 
of the program will give accurate predictions of the effects of weight change on the 
base line data. These calculations will not change the base line data. They serve 
only to show the predicted effects. 

Enter a weight of 25 long tons at 2.5 feet above (positive) the 
current center of gravity and 3.2 feet to port (port = positive). The results will 
appear as in Figure 8. 

Exit this option by depressing [RETURN]. The data just entered is 
stored by selecting STORE DISPLAYED DATA. This data file will have the same 
name as the previous file stored but it will now contain the Transverse Stability 
information. If, at some future time, this file is read into the program, all of the 
information, including the last entered weight shift effects will be displayed 
accordingly. 

The user is free to select either ENTER DATA FROM KB or 
INITIAL TRANS. STABILITY at any time to alter any numbered line data and the 
results will be displayed. 
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OR [RETURN] TO EXIT HEW OM . 11.304 







































































d. Longitudinal Stability 

The longitudinal stability section will perform longitudinal 
calculations after the base line data has been entered and the Initial Transverse 
Stability has been run. 

Select the LONGITUDINAL STABILITY option with the mouse. 

One piece of data from lines two through eight must be supplied in order to 
calculate the others and enable longitudinal weight shift calculations. For this 
example, enter Moment to Trim an Inch of 650. The display should now appear as 
Figure 9. 

Next, enter a weight of 22 long tons, 14 feet forward (positive) of 
midships. The display now appears as Figure 10. 

Exit the Longitudinal Stability option and store the data file. This 
file DD692S.DAT now contains all of the information needed to recreate all three 
Static Stability screens and generate a more detailed written report. 

Select the RETURN TO MAIN option to return program control to 
the MAIN MENU. 

4. Maneuvering 

Select the Maneuvering option of the Main Menu with the mouse. The 
screen should be changed to that of Figure 11. 

Since the Maneuvering section uses a different data file than the Static 
section, the first step is to enter data from the keyboard unless a previously stored 
file is available. Select the ENTER DATA FROM KB option with the mouse. The 
screen will now look like Figure 12. 
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INITIAL STABILITY WtNUOW 



Figure 9 Longitudinal Stability After MT1 is Entered 
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ENTER ft LINE NUMBER MEftN DRftF f. 13.000 

OR [RETURN] TO EXIT TRIM ANGLE .DEGREES. O.OOOOOE + OO 






























INITIAL STABILITY WIHOO 



Figure 10 Longitudinal Stability After Weight Shift is Entered 
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OPTIONS MENU 



Figure 11 Maneuvering Display Window After Option Selection 


27 






























































Enter the line number one and then enter the Ship File name DD692M. 
Enter the rest of the data as shown in Figure 13. When all of the data has been 
entered, exit the option by depressing the [RETURN] key.Next, select the RUN 
DYNAMIC PERFORMANCE option with the mouse. After a short wait, the 
display will appear as Figure 14. The program is interactive and any of the first 
ten parameters can be changed. Enter line ten and change the value of N’d to 
-.0013. Notice the first caption changed to USER SUPPLIED HYDRODYNAMIC 
COEFFICIENTS and that the Dynamic performance indicators reflect the change. 

Exit the option by depressing the [RETURN] key. 

a. Turning Circle 

From the Maneuvering Menu, select the RUN TURNING CIRCLE 
option. After a short wait, the display should change to that of Figure 15. The 
first eight items can be changed and the effects will be immediately calculated and 
displayed. At this point, change the rudder angle to 20 degrees and notice the 
change in TURNING CIRCLE PERFORMANCE. This change does modify the 
baseline data entered above and will be reflected if the option ENTER DATA 
FROM KB is selected. 

Exit the RUN TURNING CIRCLE option by depressing the [RETURN] 

key. 


b. Store Displayed Data. 

A base line ship data set has been entered and the hydrodynamic 
coefficients were calculated. In addition, a user value of N'd was entered and used 
to alter the performance indicators. 
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MANEUVERING DISPLAY WINOOW 



OR [RETURN] TO EXIT 






























Select the STORE DISPLAYED DATA option with the mouse. The 
data, including the user specified set of data, is recorded in file DD692M.DAT; and 
a message to that effect is displayed in the INSTRUCTION area. 

At a future time, this file can be recalled into the Maneuvering 
section using the INPUT DATA FROM FILE option and specifying DD692M.DAT 
as the file. The stored user supplied hydrodynamic coefficients will not be used in 
the Dynamic Performance section as the calculated values will be displayed. The 
user supplied coefficients are only stored for use in the GENERATE REPORT 
section of the Main Menu. 

Exit the MANEUVERING DISPLAY WINDOW by selecting the 
RETURN TO MAIN option with the mouse. 

5. GENERATE REPORT 

The files DD692S.DAT AND DD692M.DAT are now in the directory 
and can be used as input for a written report. 

Select the GENERATE REPORT option of the Main Menu with the 
mouse. The screen will change to that of Figure 16. 

a. Creating the Maneuvering Rep or. 

Select the CREATE MANEUVERING REPORT option with the 
mouse. At the prompt, enter the file name and file type DD692M.DAT. This is 
the name of the data file to use for report creation. 

Next, the user is prompted for a file name and file type of the 
report. At the prompt, enter DD692M.RPT. After a short wait, the option rectangle 
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Figure 16 REPORT Display After Option Select 
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will return to normal unhighlighted display signifying that the report file was 
created and can be printed. 

Select the PRINT A REPORT option with the mouse. At the 
prompt, enter the file name and extension of the Maneuvering report, DD692M.RPT. 
The user is then prompted to enter the name of the printer to be used. This name 
is the desired printer designation of LASER, LA210_1, LA210_2. LA75_1 or 
LA75_2. All of these printers produce a 59 line per page printout and work for the 
formatted report. Enter LASER. 

The report and report cover sheet will be printed out on the laser 
printer and control will revert to the Report Menu. A sample of the report is 
included as Appendix C. Notice that it contains a section of calculations using the 
calculated hydrodynamic derivatives and a section with the user supplied 
coefficients. If no user supplied derivatives are given, the last two pages are not 
produced. 

b. Creating the Static Stability Report 

Select the CREATE STATIC STAB. REPORT option with the 
mouse. At the prompt, enter the data file name and file type to be used to create 
the report, DD692S.DAT. See Figure 17. 

The user is then prompted to enter the file name and extension to be 
assigned to the report, DD692S.RPT. 

The next prompt asks for the number of iterations of TSI to use for 
calculating Static Stability. The user is then asked for the TSI starting value and 
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REPORT MENU 



Figure 17 CREATE STATIC STAB. REPORT Display 


EXIT THE PROGPPM 























ending values. For this example, enter three iterations starting at .190 and ending 
at .194. 

The report is then generated and the option is unhighlighted 
indicating that program control has passed to the Report Menu. Print out the 
report on the LA75_1 using the same procedure as that used for the Maneuvering 
Report except using DD692S.RPT for the file name and file type. The Static 
Report is now printed out on the LA75_1 printer. A sample report is included as 
Appendix B. 

As an aside, any file can be printed from the PRINT A REPORT 
section as long as the file name plus period, plus file extension, is not more that 12 
characters long. 

Exit the REPORT SECTION by selecting the EXIT option. Control 
is now passed to the Main Menu. 

6. PROGRAM TERMINATION 

Exit Tool Box by selecting the EXIT THE PROGRAM option. The 
Main Menu is erased and control reverts to the system window. 
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HI. TOOL BOX PROGRAM DESCRIPTION 


A. INTRODUCTION 

1. Goals of Tool Box 

As previously stated, the main goal of the program Tool Box was to 
apply VAX graphics routines to the solution of some preliminary naval ship design 
problems. The program was to be interactive using the system mouse and 
keyboard. The operator would need minimum ability with the computer system or 
indeed, any programming language. 

The actual operation of the program was to be as easy and as 
transparent as possible. This is considered important to allow the operator to 
concentrate on the design problem and not the running of the program. 

2, Methods Used 

It was decided to use a menu driven problem solving method. The Main 
Menu, Figure 2, of the program outlines eight major task level options. Each of the 
major options of the Main Menu leads to a section menu of more task specific 
options such as Initial Stability Window, Figure 3. 

When the pointer is placed in the active rectangle of a menu option, the 
option is highlighted. If the option is desired, depressing the First mouse button 
activates the option. In the section menus, the operator is prompted by an 
instruction for any action required. 
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In general, the menus suggest the sequence of action to be taken by the 
operator. As an example, as shown in Figure 2, the first option is to enter data 
from the keyboard. If the operator has already created a file in a previous session, 
the next option may be used to enter the data directly from that file. Further 
options allow storage of current data and computation. 

Any changes to data during the session are reflected in the screen output 
data presentation in real time. This allows the operator to see immediate results of 
off baseline investigations. Any interactive menu option in the entire program can 
be exited by depressing [RETURN] or [ENTER] without any data entry. This 
returns control of the program to the menu which contains the option. 

B. MAIN PROGRAM 

1. Main Program Tasks 

The Main Program, Appendix E, has several functions and is the pivot of 
the entire program. The main program creates the virtual display boundaries and 
sets the background and foreground color, as well as setting the program text types. 
It then draws the basic graphics and initial text for the menus to the virtual display 
areas. The main program defines the Main Menu option ASTs and sets up ASTs 
for highlighting choices. 

Finally, the main program creates the viewport WD_MAIN and displays 
the Main Menu. With all preliminary graphics and text drawn and the Main Menu 
displayed, the system is placed in hibernate mode to await AST activation w ith the 
system mouse. 
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2. Main Menu Subroutines 

After the Main Menu is created and active, there are eight options 
available for selection. At the present time, there are two reserve modules into 
which nothing has been programmed. The Submarine option does not have a 
supporting set of subroutines at present. All of these options respond with 
"OPTION NOT AVAILABLE" when selected. 

The flow diagram for the main program is presented in Figure 18. 

a. Subroutine STATIC 

Subroutine STATIC is the First option displayed on the Main Menu, 
Figure 2. It is an AST routine which is activated from the main menu by placing 
the pointer on the STATIC STABILITY rectangle and depressing the first mouse 
button. 

When activated, the Initial Stability Window viewport is created and 
is displayed on the terminal. Figure 3, as the active window. Subroutine Static then 
sets ASTs for highlighting and selecting its menu options. With these tasks 
complete, control is returned to the hibernating system which waits for any option 
ASTs to be activated. The Static Stability Flow Diagram is shown in Figure 19. 

b. Subroutine MANEUVER 

Subroutine Maneuver uses the same area of the virtual display as 
Subroutine Static since the basic functions of data entry, recording and computation 
are the same. Only the labels of the calculation options are different between the 
two. 
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Figure 19 Subroutine STATIC Flow Diagram 
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Subroutine Maneuver is executed the same as other Main Menu routines and when 
activated, performs the same functions as the Static Subroutine. The Highlight and 
Option ASTs are enabled and control is returned to the system in hibernation. The 
Maneuver Display Window is presented in Figure 11 and the flow diagram is shown 
in Figure 20. 

c. Subroutine REPORT 

Subroutine Report provides a detailed hard copy output of either a 
previously stored Static Stability file or a Maneuvering file. Only the data required 
to generate the report is stored in the data file. 

Subroutine REPORT creates and displays the Report Menu, Figure 
16, and enables the keyboard for the all report routines. It then sets Highlight and 
Option ASTs and returns control to the main program to wait for option selection 
and activation. Figure 21 is the Report section flow diagram. 

d. Subroutine KEY_READ (LINE, FCHAR, XSTSRT,YSTSRT,*) 

Subroutine KEY_READ, Appendix F, is the heart of Tool Box in 

that it is the routine which reads and interprets all keyboard inputs for all of the 
interactive sections. KEY_READ also knows if the input data is to be character or 
numerical and does away with the need to enter a period for real data or single 
quotes for character strings. 

A problem was encountered in that the routine KEY_IN = 
mS$READ_CHAR(KB_ID) returns a 32 bit longword of which the first byte 
contains the ACSII key code. The problem was solved by using EQUIVALENCE 
(KEY_IN,KEYBUF) where KEY_IN was defined as a LOGICAL*4 and 
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DATA LABEL 



Figure 20 Subroutine MANEUVER Flow Diagram 
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KEYBUF was defined as LOGICAL* 1 KEYBUF(4). In this way, the ASCII 
keycode is stripped using KEYBUF(l). The keycode is then converted to a 
character using CALL LEB$CHAR(KEY_ISJCEYBUF( 1)). 

The character string is built by adding each successive keystroke to 
a buffer called LINE. LINE is an input character string which is passed from 
KEY_READ to the calling subroutine. If the string is to be converted to real data, 
LINE is conditioned with a period in the appropriate position. 

FCHAR is the Character string/floating point flag. If FCHAR is 
true, then the input string is to be converted to floating point. During input, the 
string is continuously checked for a period. When the return key code is read, if a 
period has not been supplied to a floating point candidate, one is added after the 
last character entered. The conditioned string is then returned to the calling routine. 

KEY_READ also provides backspace and keystroke echoing to view 
the input before actually entering the data with the return key. When a backspace 
keycode is detected, the program deletes the last character from LINE and corrects 
the echo display. If the return key is depressed without any data entry, the program 
exits the routine by the alternate return specified by LINE_NUM in the calling 
subroutine. 

If the calling program has requested numerical data, when LINE is 
returned it is converted to a floating point number using the statement READ 
(UNE,FMT=’(G12.5)’) VARIABLE. The G descriptor is used to make the program 
more flexible for data input. In the cases where integer data is used, the real 
number is then converted usmg INT(REAL). 
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After calculations are performed in the program, the numerical 
results must be converted to character strings for display on the virtual display, 
since only text can be written to the graphic screen. This is accomplished using the 
statement WRITE (CHARJVARIABLE, FMT = ’(G12.5)’) REALJVARIABLE. 

[Ref. 4] 

e. Subroutine UTIL 

Subroutine UTIL is a short routine which allows the user to run 
nearly all DCL commands from within the program, without loosing data or time. 
Many other applications require leaving the program to perform file maintenance 
such as printing, renaming, deleting or viewing a directory. The subroutine does 
not create its own display, but uses the regular workstation display. The user is 
prompted for DCL commands to enter. The character string is assigned to the 
variable COMMAND and executed using the LIB$SPAWN(COMMAND). To exit 
the Utilities option, the [RETURN] is pressed without any other entry. This causes 
the main Menu to be popped to the front and become the active screen. Subroutine 
UTIL is presented in Appendix G. 

/. Subroutines DARK AND UGHT 

Whenever the pointer moves across a boundary into an option area, 
the AST DARK is activated. Subroutine DARK reads the pointer position and 
calculates the option number. It then redraws the option text in reverse video to 
highlight the choice. 

When the pointer exits the rectangle, subroutine LIGHT' cause'* the 
option text to be redrawn in the original text. de_emphasizing it. Other subroutines 
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with similar names, (LIGHT2, DARK2, RPT_DARK, RPT_LIGHT) are copies of 
DARK and LIGHT and perform similar functions for the other parts of the program. 
Copies are used with different variable names in order to avoid numerical confusion 
within the program if two ASTs are active at one time on the system stack. In this 
way, the correct option is de_emphasized upon exiting the current option. 

g. Subroutine NOWHERE 

This routine simply informs the operator that the option chosen is 
not yet available and returns control to the Main Menu. 

h. Subroutine EXIT 

The EXIT subroutine expands the workstation window to its regular 
working size, deletes the virtual display, calls SYS$WAKE() and returns control to 
the Main program. The first instruction after SYS$HIBER() is the END statement 
which terminates the program. 

C. DESCRIPTION OF FUNCTIONAL GROUP SUBROUTINES. 

Since many of the basic functions performed by the subsections were very 
similar, an attempt was made to build basic functional routines and then modify 
them to perform the more specific function required by a subsection. In this way, a 
total of seven functional routines were written and modified to cover 25 specific 
functions. 

In the following discussion, only one of the functional subroutines will be 
discussed in detail and the similar routines will be identified Finally, the individual 
subroutine differences will be discussed. A copy of the subroutine under discussion 
will be found in the appendix for reference. 
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1. Subsection Initializing and Control ASTs 

The first functional group is the Subsection Initializing and Control AST 
Group. These subroutines are the ASTs which are enabled whenever the program 
enters the Static Stability Menu or the Maneuvering Menu. This group consists of 

• STATTC_KB_DATA_IN 

• TRANS.STAB 

• LONG_STAB 

• DATA_IN 

• PERFORM 

• T_CIRCLE 

Subroutine DATA_IN is the data entry initializing and control AST for 
the Maneuvering Subsection and was the prototype subroutine. All others in this 
group evolved from it. Subroutine DATAJN is presented in APPENDIX H. 

As in all of the graphics subroutines, the first lines call in the UIS 
libraries and set up the section type and common statements. The program then 
moves the pointer out of the active AST region of the display to prevent double 
AST activation. Next, the virtual keyboard is created and enabled for the window 
being displayed. 

At line one, the instruction area is erased and the first instruction. 
"ENTER A LINE NUMBER OR [RETURN] TO EXIT". is written to the screen. 
At line three, the subroutine KEY_READ is called to read in the lute number of the 
data to be entered or changed. 
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The arguments of the call to KEY READ are the character string LINE 
and the starting position, world coordinate pair (0.,12.), for key echo. This call also 
specifies an alternate return line number of 300. 

If the [RETURN] key is depressed without any data entry, the subroutine 
is cancelled and control returns to the main program. The logical .TRUE, informs 
the subroutine that the character string LINE needs conditioning for conversion to 
real numbers. 

Following line three, the string LINE is read into the real number 
RLINE_NO. It is then converted to an integer LINE_NO. 

LINE_NO is used as a branching argument in the computed GO TO statement. 
If the LINE_NO is out of range, "IMPROPER LINE NUMBER, ENTER A NEW 
LINE NUMBER PLEASE" is displayed in the instruction area. Control then returns 
to line one. 

Each of the next series of line numbers is ten times the corresponding 
line number of the displayed data. Each is a functional section by itself. 

First, the line number subsection calls a sorting and controlling routine 
which sets conditions for the data input, displays the proper instruction and reads 
back the string LINE which contains the requested keyboard data. This call also 
specifies line 300 as an alternate return which allows exiting the subroutine in the 
same way as described above. 

The text string LINE is stored in the appropriate character variable and 
displayed on screen. If required, it is also converted to real data tiding tin- 
formatted read statement. If the input data alters other data which is currently 


50 









displayed on the screen, the values are recalculated, converted to character strings 
and displayed. This can be seen in groups at lines 20 through 50, which will 
recompute either displacement or block coefficient if any of the parameters are 
changed. 

After each line number section is completed, the subroutine returns to 
line one and requests a new line number of data to be changed or entered. If the 
[RETURN] is depressed without a line number, the program goes to line 300. 

The exiting sequence begins at line 300 where the keyboard is disabled. 
Next, the instruction area is erased and the new instruction to select an option with 
the mouse is written to the screen. The routine then returns to the main program in 
hibernation. 

2. Sorting and Instruction Routines 

The next group of subroutines are called from the Initializing and 
Control ASTs. The Sorting and Instruction routines find the appropriate instruction 
and display it in the instruction area. They also prompt the KEY_READ subroutine 
for data input and display the returned data in the appropriate place on the display 
screen. 

The Sorting and Instruction functional group is made up of the following 
subroutines: 

• ST_SORT 

• TRANS_SORT 

• LONG_SORT 

• PF_SORT 
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TC SORT 


• FTND_IT 

Subroutine FIND_IT is presented in Appendix I. All of the other Sort 
subroutines perform the same functions in very similar manners. 

Subroutine FINDJT first includes the file TOP.FOR with the general 
libraries and common statements. It then defines several more data types for use in 
the subroutine. 

Using the input LTNE_NO, the Y coordinate, DEL_Y, of the data to be 
displayed is calculated. Next, the instructions for the particular data requested are 
displayed. 

An IF block then decides, based upon LENE_NO, if the data requested is 
to be converted to floating point data. If it needs conversion, the FCHAR flag must 
be set to .TRUE, for use in the KEY_READ subroutine. 

Subroutine KEY_READ is then called for the input data which is 
transferred as the string LINE. FCHAR, the conditioning flag, and the world 
coordinates of the key echo location are also sent to KEY_READ. As discussed 
above, an alternate return is provided for exiting the routine if no data is entered 
before [RETURN] is depressed. 

When subroutine KEY_READ returns control, the old data is erased and 
the new data is drawn to the display screen. Control of the program then returns to 
the calling AST which asks for a new line number. 
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3. Labeling Routines 

There are six different screens of information presented in the Static and 
Maneuvering sections of the program which require six different sets of display 
characters. The data display area has a total of twenty usable lines to display data. 
Some of the lines will contain changeable data, which are characterized by an 
associated line number. Any other information displayed is informational or 
program generated data. 

The labeling subroutines are called once at the beginning of each of the 
section ASTs to draw the unchanging portions of the particular display screen. The 
subroutines are: 

• LONGJLBL 

• TRANSJJBL 

• ST_SDI_LABEL 

• T C_DISPL Y_ V AR 

• PERFORM_DIS_VAR 

• DATA_LABEL. 

Subroutine DATA_LABEL will be discussed in detail and is presented in 
Appendix J. 

Subroutine DATA_LABEL is called from AST DATA_IN and is fed 
arguments containing the virtual display identifier and the character array containing 
existing data. The subroutine declares all variables as implicit integers l<uuN the 
UIS libraries and declares subroutine specific character and real types. 


53 










The first step in the creation of the display screen is to erase any 
previous information drawn to the Data Display Area. The twenty lines of the new 
display are then given line labels. The line labels are then drawn to the virtual 
display and the screen using a twenty step Do loop which also writes up any 
previously entered data strings. After the text writing loop, the subroutine exits 
back to the calling AST. 

Two of the Labeling subroutines, TC_D1SPLY_VAR and 
PERFORM_DIS_VAR do not write labels for the entire display area. These two 
routines only write the labels for the variable data portion of the routine. The 
remaining display area is labeled and drawn as part of the associated calculating 
subroutine. 

Although this gives functional division to the program, it does waste 
some computer time in that the entire result section of the screen is rewritten each 
time a variable is changed. It is felt that the method used for the DATA_IN is the 
better programming technique. 

There are two more routines which fit into the data display category and 
they are TRANS_DSPLY and LONG_DSPLY. These routines are used to display 
the results of changing an input variable on other changeable input data in the 
transverse and longitudinal stability sections. 

The subroutines are called after the calculations are performed and the 
results are written into character variables, then drawn to the display at the proper 
location. The subroutines then exit. 
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In other sections, this function is performed either in the calculating 
subroutines or in the calling AST itself. This separate subroutine method is more 
functionally readable, but can waste space if only a few variables are changed by 
data entry. 

4. Calculating and Conversion Routines 

The actual calculations performed in the sections are performed by the 
Calculation and Conversion routines. These routines usually are in pairs. One 
routine (a conversion routine) calls a second which performs the actual computations 
and returns the results. The converting routine then writes the floating point 
information into character variables for screen display. 

The calculating routines in Tool Box are ST_CALC_1, 

ST_CALC_2,TRANS_CAL, TRANS_CAL_ 1, LONG_CAL, PERFORM CAL, 
HDD_2, HDD_CALC_CAL AND TC_CAL_RPT. The calculating pair TC_CAL 
and TC_CAL_RPT are presented in Appendix K. 

The ms libraries are read into the subroutine and the type statements are 
declared. A five element, 12 character, string array TC_DATA(5)*12 is declared 
for holding the text representations of calculated data. The Subroutine 
TC_CAL_RPT is called to perform the actual calculations using data previously 
entered. 

The returned data is converted to character strings using the command; 
WRITE(TC_DATA( 1), FMT = ’(G12.5)’) FLOATTNG_POINT [REF. 4:p 6-211 
After all data has been converted, it is drawn to the virtual display and 
the screen. The subroutine then exits back to the calling AST. 
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The actual mathematics involved in the computing portion of the 
subroutines are well understood and are not presented. All of the static stability 
relationships were derived from [Ref. 4] and Principles of Naval Architecture 
[Ref. 5], 

Derivation of the basic equations for maneuvering stability from Clarke, 
Gedling and Hine, [Ref. 6], and the Turning Circle Performance derived from Lyster 
and Knights [Ref. 7], are presented in Appendix A. 

5. Data File Recording Routines 

Whenever data presented on the screen is to tx. saved, one of two ASTs 
is activated. AST RECORDIT records the necessary data for the Mtvmvering 
Performance section and AST ST_RECORD performs the function for the Static 
Stability section. The information available at the time of the AST activation is 
recorded in a formatted file using SHIP NAME as the file name and DAT as the 
file extension. 

Subroutine RECORDIT is presented as Appendix L and is discussed in 
detail below. 

The files TOP.FOR and TOP_MANU.FOR are read into the file and 
subroutine type statements are declared. Next, the pointer is moved to an inactive 
part of the screen and the keyboard is activated. 

The file is opened with a Status of ’NEW’ and the data is read in 
formatted form into the file. An ENDFILE command is given as the last input to 
the file and it is then closed. 
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Successful completion of the event is reported by concatenating the 
FNAME with DAT and writing that the file was saved as FNAME.DAT to the 
screen. Control is then passed to the main program. 

6. Data File Reading Routines. 

There are two AST subroutines written for reading previously stored data 
into a program section. These are READ_FTLE and ST_READ_FELE. Subroutine 
READ_FILE is presented in Appendix M and discussed below. 

If a file has been previously created, its contents can be recalled for 
modification using the READ_FILE routine. In the subroutine, after the files 
TOP.FOR and TOP_MANU.FOR are included, the pointer is repositioned to an 
inactive portion of the screen. The keyboard is then activated and the instruction 
to, ’ENTER THE FILE NAME AND FILE EXTENSION’ is written to the screen. 

Subroutine KEY_RE AD is called to read in the file name keystrokes in 
the form of the character string, LINE. Next, the file is opened; and the formatted 
data is read in and assigned to appropriate variables. 

After the last data read, the file is rewound and the data is read in again, 
but this time into a character array. As previously noted, this is required because 
only text can be drawn to the display. 

The file is then closed and the keyboard is disabled. The instruction area 
is then erased and the new instruction to select an option with the mouse is written 
to the screen. Before exiting, Subroutine DATA_LBL is called which writes the 
newly created character data to the screen. The AST then return^ control t<> the 
main program. 
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rv. VAX VMS GRAPHICS ROUTINES 


A. GENERAL 

The vax graphics routines are a group of routines which are called from a 
high level programming language. The routines are located in libraries which must 
be included in the program before any of the routines can be accessed. The 
following calls must be in a FORTRAN program or subroutine before either one 
can call UIS routines. 

• INCLUDE ’SYS$LBRARY:UISENTRY’ 

• INCLUDE ’SYS$LIBRARY :UIS$USRDEF’ 

The INCLUDE statement is a very powerful command which will be 
discussed later. 

B. GRAPHICS COORDINATE SYSTEMS 

The VAX VMS uses graphics routines which define two dimensional graphics 
displays using two different sets of cartesian coordinate systems, world and absolute. 
[Ref. 8] 

The world coordinate system is a user defined system which serves as the 
reference for virtual displays. It is independent of device and unit of measurement. 
This allows a choice of coordinates which are convenient to the problem and the 
design of the display. The world coordinates are used as references tor graphics 
and text applications within the virtual display. 
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The boundaries of the graphics are specified with the creation of the virtual 
display. The range should be large enough to accommodate the expected problem 
plus an added amount for unexpected growth. The allowance for growth is 
particularly needed if the graphic will contain text. Changing the size of the virtual 
display after initially aligning and sizing the text within it, will usually distort the 
earlier text lines, requiring readjustment. 

Output devices have defined physical dimensions and therefore need a set of 
coordinates specific to each device. These coordinates are called absolute device 
coordinates. In particular, they specify positions on the Micro VMS workstation 
display in centimeters with respect to the lower left hand comer of the screen. 

Several graphics routines allow specification of exact placement on the screen 
with absolute coordinates. Omission of coordinates in those routines which allow 
specification of the absolute coordinates causes the system to use default placement. 
All of the Tool Box routines use the defaulting system values. 

All coordinates are given as X Y pairs with X as the traditional horizontal 
reference and Y the vertical. The X Y pairs are always given as floating point 
numbers. Not specifying a floating point coordinate usually results in the value 
defaulting to zero. 

C. CREATING A GRAPHICS DISPLAY 
1. General 

A graphics display is started by first creating a virtual display. This 
display is a conceptual display which has a set of confining coordinates but no 
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physical dimensions. It could be thought of as a large piece of blank paper upon 
which graphics and text are to be drawn. [Ref. 8:p 8-1] 

After the virtual display is defined, graphics routines draw and write to 
the display. To view the display, windows are created to various parts or all of the 
virtual display. Windows can be opened, closed, resized, moved and deleted 
without affecting the virtual display. 

The window is associated with a display viewport, which is die area of 
the physical display screen allocated to the window. There can be any number of 
viewports displayed on the screen at any time. Viewports overlapping each other 
cause occlusion, with the last viewport created being on top. The relationships 
between virtual display, window and screen display are illustrated in Figure 22. 

2. Display Routines 

a. VDJD = UIS$CREATE_DISPLAY 
(XI, Y1 ,X2, Y2, WIDTH J{EIGHT,VCMJD) 

This routine defines the boundaries of the virtual display and its 
actual viewport size on the workstation screen [Ref. 8:p 18-26]. It will be one of 
the first statements in the graphics program. The default colormap of two entries 
defines the background (white) and foreground (black) colors. The colors can be 
changed using UIS$SET_COLORS() [Ref. 8:16-1]. 
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• VD_ID is a longword value, uniquely identifying the display. 

• X1,Y1 are the lower left world coordinate pair. 

• X2.Y2 are the upper right world coordinate pair. 

• WIDTH is the display viewport width in centimeters. 

• HEIGHT is display viewport height in centimeters. 

• VCM_ID is the virtual colormap identifier. This need not be specified. If not 
specified, a default colormap of two entries is created. 

b. WDJD = UIS$CREATE (VDJD,’SYS$WORKSTATION\TITLE, 
XI,Y1J£2,Y2,WIDTH JiElGHTATTRIBUTES) 

The display window routine creates a viewing window of the virtual 
display. World coordinates are used to define the scope of the viewable area of the 
virtual display. If the coordinates are not used, the window defaults to view the 
entire virtual display. [Ref. 8:p 18-37] 


• WD_ID is a returned longword value which uniquely identifies the window. 

It is the name of the window. 

• VD_ID is the name of the virtual display. 

• ’SYSWORKSTATION’ is the name of the output device. This indicates that 
the output device for this graphics window is the terminal screen. 

• TITLE is a character string title. It will appear in die window banner area. 

It need not be specified. 

• X1,Y1 is the world coordinate pair of the lower left comer of the desired 
display area. It need not be specified. 

• X2,Y2 is the world coordinate pair of the upper right mmci •<! tin- -Ic-mioI 
display area. It need not be specified. 


62 











• WIDTH, HEIGHT are the dimensions in centimeters of the display on the 
terminal. If not specified, the height and width used in the virtual display are 
used. 

• ATTRIBUTES were not used in the programming and are not required. 

When created, the system will attempt to display the viewport in an 
unused portion of the screen. If there are multiple viewports and interference 
occurs, the last created window will overlap (occlude) the earlier windows. 

c. U1S$DELETE_DISPLAY (VD_ID) 

The delete display routine deletes the display named VD_ID and 
disables all calls using the VD_ID name. [Ref. 8:p 18-48] 

d. U1S$DELETE WINDOW (WD_ID) 

The delete window display deletes the viewport from the screen and 
disables all calls using the WD_ID name. [Ref. 8:p 18-54] 

e. UIS$PUSH_V1EWP0RT (WDJD) 

The push viewport routine causes the named viewport to be at the 
back of the viewing screen. Any other displays present will occlude the pushed 
display if there is overlap. This is a useful routine to switch the active menu to the 
back in order to make another menu active at the front of the screen. [Ref. 8:p 18- 
239] 

/. UlS$POP-VIEWPORT (WDJD) 

The pop viewport routine does nearly the reverse of the push 
routine. It brings the named viewport to the front of the screen i<< I'anm.' the 
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active screen. If there is overlap, this popped screen will occlude any other display 
present on the screen. [Ref. 8:p 18-234] 

g. UIS$SET_COLOR (VDJDJNDEX#,Gfi) 

The set color routine sets the color of th- listed index to 
combinations of red, blue, and green for graphics and text presentation. This 
program did not specify a colormap in the virtual display creation; and so there are 
only two indexes available: 0 (background) and 1 (foreground). 

The desired colors are displayed as a mix of red (R), green (G), and 
blue (B). Each color can have a value between zero and one (0 to 100% of the 
color present). As an example, a mix of R = 0., G = 0. and B = 0. would give 
black, while R = 1., G = 1. and B = 1. gives white. A mix of R = .75, G = 1. 
and B = 1. gives a light bluish green color. [Ref. 8:p 18-283] 

D. CREATING GRAPHICS ON THE VIRTUAL DISPLAY 

There are seven UIS routines which draw graphics on the virtual display. Of 
these seven, only UIS$LINE and UIS$PLOT were used in Tool Box. Since the 
application program called for menus of straight lines, there was no need to call 
UIS$CIRCLE or UIS$ELLIPSE. 

1. UISSLINE (VD_ID,ATTRIB,X1,Y1,X2,Y2, ... Xn,Yn) 

This routine draws a point or a series of unconnected lines, depending 
upon the number of world coordinates which are used as arguments. The line style, 
color, and width are described in the attribute block. The default attribute block 
block zero (0) which is modified using UIS$SET_LINE_STYLEt > and 
UIS_SET_LINE_WIDTH() routines. [Ref. 8:p 18-210] 
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• VD_ID is the virtual display name. 

• ATI'RIB is an integer which identifies the attribute block. 

• XI,Yl, ... are world coordinate pairs (up to 252 pairs) of points to be 

connected with lines. 

2. UIS$PLOT (VD-ID,ATTRIB,Xl,Yl,X2,Y2 v ..XN,YN) 

The plot routine draws a point, line or polygon using a series of points 
specified in the argument. The line width and style are stored in the attribute block 
and are changed the same as plot line. A maximum of 126 world coordinate pairs 
can be used in the argument. [Ref. 8:p 18-229] 

3. UIS$ERASE (VD_ID,X1,Y1,X2,Y2) 

Whenever a section of the screen needs to be cleared (as when changing 
a displayed instruction), the erase command will delete any text or graphic within a 
box, with lower left hand comer world coordinates of XI, Yl and upper right 
comer coordinates of X2, Y2. [Ref. 8:p 18-73] 

E, CREATING TEXT ON THE VIRTUAL DISPLAY. 

The basic unit for text drawing to the screen is the character cell. It has a 
specified size and relation to other text character cells on the display. The size and 
spacing of text characters are independent of the size of the virtual display or 
window. When the display window size is changed or altered, text remains 
unchanged and will not distort as the graphics figures will. 

As discussed previously, this is the reason that a virtual displa\ should 
initially have an added factor of size for unexpected growth. 
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The text characters are drawn in accordance with the specifications contained 
in the active font. In order for the text to change characteristics, the appropriate 
attribute must be changed. The default attribute settings are contained in the zero 
(0) attribute block. This attribute block is never changed in itself, but copies of it 
can be altered and stored in user numbered (indexed) attribute blocks. [Ref. 8:p 9- 
1] The new attribute blocks can then be further modified and given a new index 
number or stored under the same number. 

Text attribute routines exist for changing character rotation, character size, 
character slant, character spacing, font, margins,path, slope, mode and index. In 
Tool Box, the text size was changed and reverse video was used to emphasize 
portions of the screen and to highlight choices. The text rout les used in the 
program follow. 

1. UIS$SET WRITING_MODE (VD_ID, ATTl.ATT2,MODE) 

In general, the writing mode in attribute block ATT1 is modified to one 
of 14 available writing modes and stored as ATT2. The writing modes associated 
with an index control how graphics and text routines use the foreground and 
background when displaying objects or text. [Ref. 8:p 18-363] 

• VD_ID is the name of the virtual display. 

• ATT1 is the index of the attribute block to be modified. 

• ATT2 is the index number assigned to the new modified attribute block. It is 
referenced in UIS$ calls for graphics and text 

• MODE is one of 14 writing modes. 
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2. UIS$SET_CHAR_SIZE (VD_ID,ATT1,ATT2, ,XSCALE,YSCALE) 

This routine changes the size of the characters in attribute block ATT1 to 

width of XSCALE (absolute coordinate scale factor) and height of YSCALE. The 
result is stored as attribute block ATT2. [Ref. 8:p 18-267] 

3. UIS$TEXT (VD_ID,ATT,TEXT_STRING,X,Y) 

UIS$TEXT is the basic text routine for drawing text to the virtual display 
at position X, Y. [Ref. 8:p 18-372] 

• VD_ID is the name of the virtual display. 

• ATT is the attribute block index number. 

• TEXT_STRING is a ’character string’ enclosed in single quotes or a character 
variable which has been assigned a character string. 

• X,Y is the world coordinate pair at which the text begins being drawn. 

F. KEYBOARD ROUTINES AND COMMUNICATION 

All of the normal keyboard functions are disabled whenever a user created 
graphics window is the active display on the screen. If the application program is 
to be interactive with the keyboard, the program must contain routines for creating 
and enabling the keyboard. In addition, the program must contain routines for 
reading, storing, and decoding the keystrokes. If other than character strings are 
needed, the program must also have routines to convert from character string to 
either integer or real data entries. Such amenities as backspace, keystroke echo, 
scrolling and returns are also disabled and must be programmed into the application. 

In order for the keyboard to become active, a virtual keyboard must be 
created. Then the virtual keyboard is associated with a particular viewport; and, 
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finally, it must be enabled. The application must then be able to read keyboard 
entries as described above. 

1. KBID = UIS$CREATE_KB (’SYS$WORKSTATION’) 

This routine creates a virtual keyboard which is identified as KB_ID. 
KBJD is a returned longword value and uniquely identifies the keyboard. It is 
used as an argument in calling routines requiring a keyboard application. Once 
created, the virtual keyboard can be connected to any number of viewports. [Ref. 

8:p 18-28] 

2. UIS$ENABLE KB (KBJD,WD ID) 

Enable Keyboard connects the physical keyboard to the virtual keyboard 
and associates them with a specific window. The KB icon in the upper right hand 
comer of the window will highlight indicating the keyboard is active for that 
window. [Ref. 8:p 18-68] 

3. UIS$DISABLE_KB (KB ID) 

This routine disconnects KB_ED from the physical keyboard and disables 
communication between the keyboard and the window. The KB icon in the upper 
right comer of the window will be blank. [Ref. 8:p 18-58] 

4. UIS$DELETE_KB (KBJD) 

The delete keyboard routine deletes the virtual keyboard, KBJD. [Ref. 

8:p 18-49] 
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G. ASYNCHRONOUS SYSTEM TRAP ROUTINES (AST) 

Tool Box relies on asynchronous system trap routines to mce from menu to 
menu and to chose options within a menu. It also uses ASTs to detect the pointer 
position and highlight choices when the pointer is within the selection range of the 
option. 

An asynchronous system trap routine is a routine which specifies a certain set 
of run time events which will cause the execution of a defined routine or routines. 
After completion of the AST, control returns to the point of interruption. 

C-. . the conditions for AST execution are defined, the routine will activate 
any time during program execution when the conditions are satisfied. The 
application program continuously monitors for these conditions while executing the 
main program. 

Normally, a set of ASTs are defined and the operation of the system is placed 
in a waiting mode. The waiting mode is activated by CALL SYS$HIBER (). In 
order to activate the system again, CALL SYS$WAKE () is used to disable the 
hibernation. 

All names of all subroutines used in the ASTs must be declared in an 
EXTERNAL statement, since the subroutine name is passed as an argument in a 
CALL statement. The EXTERNAL statement must be included before any 
executable statement in the calling program. 
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1. CALL UIS$SET_BUTTON_AST (VD_ID,WD_ID,ASTPRM 
„,X1,Y1,X2,Y2) 

When the first button on the mouse is depressed and the pointer is within 
a trigger rectangle, the subroutine ASTPRM is executed. Note that there is a triple 
comma position in the argument list. These are space holders. [Ref. 8:p 18-260] 

The first space holder can contain the address of a data structure to pass 
data to the ASTPRM. The second space is for a keybuffer which can receive 
button information. Since all data was passed using named COMMON statements 
and no button information was needed these spaces were left blank. The space 
holders must be used to prevent hard to find errors. 

• VD_ID is the virtual display identifier. 

• WD_ID is the viewport window identifier. 

• ASTPRM is the name of a subroutine to be executed when the button is 
depressed and the pointer is within a defined trigger rectangle. 

• X1,Y1 is the lower left comer world coordinate pair. 

• X2,Y2 is the upper right comer of the trigger rectangle. 

2. UIS$SET_POINTER_AST (VD_ID,WD_ID,INAST, 
,X1,Y1,X2,Y2,0UTAST) 

The pointer AST monitors the world coordinates of the pointer and when 
it is within a specified box, the entering subroutine is executed. When the pointer 
exits the box, the exit AST is executed. [Ref. 8:p 18-328] 

• VDJD is the virtual display identifier. 
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• WD_ID is the viewport window identifier. 

• INAST is the name of the subroutine to be executed when the pointer position 
crosses into the rectangle. 

• X1,Y1 is the world coordinate of the lower left comer of the trigger rectangle. 

• X2,Y2 is the upper right comer of the rectangle. 

• OUTAST is the name of the subroutine to be executed upon pointer crossing 
out of the rectangle. 

Neither routine needs to be specified, but the space holding commas need 
to be retained to prevent errors. The ASTs can be disabled by calling the routine 
again, leaving out the INAST and OUTAST names. 

H. MISCELLANEOUS CALLABLE ROUTINES. 

1. UIS$GET_POINTER_POSmON(VD_ID,WD_ID,X,Y) 

• VD_ID is the virtual display identifier. 

• WD_IU is the viewport window identifier. 

• X,Y is the world coordinate position of the pointer 

This routine is used to report the position of the pointer when AST 
routines are executed. The coordinates set up highlight and text changes to reflect 
the AST actions. [Ref. 8:p 18-160] 

2. UIS$SET_POINTER_POSITION(VD_ID,WD_ID,X,Y) 

• VD_ID is the virtual display identifier 

• WD_ID is the viewport window identifier. 


71 










• X,Y is the new world coordinate pointer position. 

This routine is used to move the pointer out of the menu trigger field 
after a button AST choice has been made. By moving the pointer well out of the 
field as soon as the button is depressed, double button pushes (bounces) are avoided 
and the AST only activates one time. [Ref. 8:p 18-335] 

3. CALL LIB$SPAWN(’DCL_COMMAND’) 

This allows running nearly all Digital Command Language commands 
from within the application without leaving. This routine forms the basis of the 
Utilities option of the main menu. It is an extremely powerful and flexible routine, 
as the DCL_COMMAND can be in the form of a variable. As a variable, a 
character string representing any DCL command may be assigned to 
DCL_COMMAND to run virtually any option. [Ref. 4:p 3-2] 

4. INCLUDE (FTLENAME.FTLETYPE) 

During compilation of the program, whenever the INCLUDE 
’FILENAME.FILETYPE’ is reached, the compiler loads the contents of 
filename.filetype into the program at the location of the INCLUDE statement. The 
file must contain executable statements but it exists as a completely separate file. 
[Ref. 4:p 4-22] 

Using this method, a common file containing NAMED COMMON, REAL 
and CHARACTER declarations etc., can be written for several related subroutines 
and "included" eliminating potential errors and saving programming turn: Sections 
which contain long lists of assignment statements or similar blocks which detract 
from readability can be written as separate files and "included" at compile time. 
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CONCLUSIONS AND RECOMMENDATIONS 

A. CONCLUSIONS 

The incorporation of the UIS graphics routines into a FORTRAN program 
produced an easy to use program which provides a solution for the desired problem. 
The ability to use the mouse and windows (to direct the program) works very well 
and allows the operator to concentrate on the problem. The windows approach also 
encourages modularity. 

It was found that adding more displayed windows to the screen slowed the 
response time of the system. It was for this reason that in only one case are two 
Tool Box windows active and displayed at the same time. 

It was further discovered that the addition of more active ASTs reduced the 
response time of the system. By limiting the active ASTs to those actually needed 
by the controlling menu, response times can be kept quite reasonable. 

A program written using the UIS graphics routines can not >■. transported to 
any other system which is not supported with the UIS libraries. If transportability 
is a requirement, some of the new, compilable, BASIC languages, such as QUICK 
BASIC or TURBO BASIC, could be used to achieve similar results. 
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B. RECOMMENDATIONS 

Tool Box starts the problem well into the preliminary design phase. Several 
sections should be produced to generate the baseline input data which was assumed 
to be available for static stability and maneuvering performance calculations. 

One such section could read in hull form information by integrating a hull 
form sketch drawn to screen by the pointer. Similar techniques could provide 
wetted areas, moments of inertia, power and resistance estimates or offset data. 

Tool Box used only a few of the available UIS routines and the results were 
very good. There are still many capabilities provided which need to be explored. 
More applications should be written, with an eye toward building an in house 
knowledge base of the use of these graphics capabilities. 
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APPENDIX A 


MANEUVERING DYNAMICS REVIEW 

The equations of motion are well established and only a 
very general treatment is used here as a point of reference. 
This review is condensed from Clarke, Gedling and Hine, [Ref 
6 ] . 

The motion of a vessel is usually a six degree of 
freedom system, but only the equations of surge, sway, and 
yaw are treated here. Using the standard co-ordinate 
systems, the equations of motion are found to be 

2 

X = m(u - rv - x^r ) 

Y = m (v + ur + x r) (1) 

N = I r + mx (v + ru) 
z g 

(hydrodynamic forces = inertial response) 

The hydrodynamic forces are usually expressed as linear 
perturbations about a fixed steady state forward speed u 0 , 
and are expressed as 

X = X. u + X u 
u u 

Y = Y. v + Y v + Y. r + if r (2) 

v v r r 

N = N.v + N v + N.r + N r 
v v r r 
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The sway and yaw equations from (1) and (2) are combined 
and a term is added for the rudder ( 6 ). Keeping only the 
linear terms and non-dimensionalizing the resulting 
equations are: 

(Y'. - m)v' + Y' v' + (Y*. - m'x )r'+ 
v v v r g 

(Y' - m')r + Y' <5 = 0 
r 6 

(3) 

(N*. - m'x )v 1 + N' v' + (N'. - I')f' + 

V g V IT Z 

(N* - m ' x 1 ) r 1 +N ' <5 = 0 
r g 6 

Several approaches have ben used to estimate the 
derivatives in (3) including strip theory, semi-empirical 
methods and multiple regression. The obvious aims of all of 
the studies has been to correlate overall hull geometry to 
hydrodynamic derivatives. 

Looking at the ship, it must be immediately obvious that 
there are a few parameters which must have large effect on 
the maneuverability and stability. Since they must have a 
large effect the hydrodynamic forces and responses, these 
must be included in at least the initial fit of data. The 
parameters are length between perpendiculars (L), draft (T), 
block coefficient (C B ) and Beam (B). 

There are also some parameters, not immediately obvious, 
which also have an effect on the correlations. These aie 
stern type, propeller direction of rotation and number, 
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rudder type (span, chord, area, and thickness), number of 
rudders, and bow area. 

In doing the multiple regression analysis, Clarke, 
Gedling, and Hine used 36 sets of data from rotating arm 
experiments and 36 sets of data from planar motion 
experiments. Each of the derivatives was normalized using 
(T/L) . As predictor variables, they chose 
C B , L/B, L/T, B/T, B/L, T/L, T/B, and their products and 
squares. Only the terms which tended to zero were used in 
the regression to assure stability. 

For each derivative, the regression was first started 
giving the simple terms preference and then adding the 
higher order terms to check for significant improvement. 

The resulting coefficients were significant to the 5% level 
using t-statistics except N' v which was only .6% 
significant. The estimating model from multiple linear 
regression is 


Y'^ = - (T/L) 2 ( 1 + .16 C b B/T - 5.1 (B/L) 2 ) 

Y' ± = - (T/L) 2 (. 67 B/L -.041 B/T) 

Y' = - (T/L) 2 (l + .4 C_B/T) 

V £> 

Y' = - (T/L) 2 (-1/2 + 2.2 B/L - .08 B/T) 

N'^ * - (T/L) 2 (l.l B/L - .041 B/T) 

N' . = - (T/L) 2 (1/12 + .017 C„B/T - .33 B/L) 

ZT B 

N' = - (T/L) 2 (1/2 + 2.4 T/L) 

N' = - (T/L) 2 (1/4 + .039 B/T -.56 B/L 
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When a ship is being designed, the parameters available 
to the architect are physical quantities which he has set 
down to describe and communicate the vessel. He can not 
easily design using concepts of or . 

With the above correlations (4), and the linear 
equations of motion (3), an attempt at describing the 
performance of the vessel can be undertaken. 

Nomoto,[Ref. 9] showed that equations (3) could be expressed 
as a set of decoupled, second order differential equations 


T i «p I 
1 2 

ml mi n 
1 2 

The rudder derivatives, rudder fin stabilizing effect 
and a water depth correction, outlined in Appendix 1 and 
Appendix 2 of Reference 4 was also incorporated. 

This set of equations can then be solved in terms of the 
hydrodynamic derivatives with results as follows. 


' + (T' + T' ) r + r' = K '6 + T' 5' 

12 *5 

(5) 

' + (Tj + T 2 ) v + v' = 6 + S' 


rrt / m r 
12 


(Y' . - m' ) (N' . - I' ) - (Y f . - m'x') (N' . - m'x' ) 

= v _ r _z__ r _ g v v _g_ 

Y' (N' - m'x') - N” (Y' - m') 
v r g' v r 
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Y' (N' - m'x') - N' (Y' - m' ) 
v' r g v r 


T • 

3 


(N* . - 

' v 


m 'Xq)^£ ~ (Y^ - n')N^ 


N' Y' - Y' N' 

v 6 v 6 


T' 
4 


(N’.~ I’)Y« - Y’. - m»x^)N> 

(Ni - m 1 x ') Y ' - (Yi - m')N' 
l g o l o 


K' 


N' Y' - Y' N' 

v <5 v S 


Y' (N' - m'x') - N* (Y' - m') 
v'it g' v v r ' 


-K’ 

v 


( N 'v ~ m ' X q )Y S 


(Y^-m')N' 


Y' (N* - m'x') 
v r g 


- N' (Y' - m') 
v r 


T£ + T ' 2 + 


Clarke, Gedling and Hine [Ref. 6], solve the above 
relationships for a heading response to a given rudder input 
and call it the Turning Index, P. P is the ratio of heading 
response to rudder angle and a ratio of P > 0.3 is 
considered adequate. For a given rudder angle and non- 
dimensional time of 1 (one ship length moved) the turning 
index can be represented as: 
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c. A. Lyster and H. 1. Knights, [Ref. 7], also performed 
analysis on a large set of ship turning data in an attempt 
to formulate predicting equations for ships' turning 
circles. The results produced two sets of equations, single 
screw and twin screw ships which are presented below. 


SINGLE SCREW 

STD/L = 4.19 - 203 Cb/6 + 47.4 TRIM/L - 13B/L +194/6 

- 35.8 SpCh(ST-1)/LT + 3.82SpCh(ST-2)/LT +7.79Ab/LT 
+ .7(T/Tl - 1) ( 6 / j 6 |)(ST-1) 

TD/L = .91 STD/L + .424 Va/ L + .675 
AD/L = .519 TD/L + 1.33 
TR/L - .497 TD/L - .065 
Vt/Va = .074 TD/L + .149 
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APPENDIX B 


STATIC STABILITY REPORT 


TOOL BOX 

INITIAL STABILITY REPORT 
THIS REPORT WAS GENERATED USING THE PROGRAM 
TOOL BOX WHICH WAS DEVELOPED FOR THE NAVAL 
ENGINEERING DEPARTMENT OF THE 
NAVAL POSTGRADUATE SCHOOL 
MONTEREY, CALIFORNIA 
BY 

PROFESSOR F. PAPOULIAS 
AND 

LT. GERALD MCGOWAN 

1990 
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TWIN SCREW 


STD/L = .727 - 197 Cb/|<5| +4.65 B/L + 41 TRIM/L + 188 / 
- 218 SpCh (Nr-1)/LT +3.2 Va/vfL + 25.56 Ab/LT 
TD/L = .140 + STD/L 
AD/L =1.1+ .514 TD/L 
TR/L = -.357 + .531 TD/L 
Vt/Va = .543 + .028 TD/L 

Ab = Submerged bow area profile 
AD = Advance at 90 degrees of turn. 

B = Beam in feet 

Cb = block coefficient. 

Ch = Chord of the rudder in feet. 

Sp = Span of rudder in feet. 

ST = Stern type. (1 = closed, 2 = open). 

STD = Steady turning diameter in feet. 

T = Trial Draft in feet. 

TD = 'T'actical Diameter in feet. 

T1 = Design Draft in feet. 

TR = Transfer at 90 degrees of turn. 

Va = Approach velocity. 

Vt/Va = Velocity drop in the steady turn. 

Vt = Velocity on steady turn. 

<5 = Rudder Angle in degrees (Negative = stbd) 
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INITIAL STABILITY REPORT 


THE INPUT SHIP PARAMETERS ARE AS FOLLOWS 


THE PEPOPT IS LOCATED IN FILE DD692S.RPT 

THE INPUT DATA FILE USED IS DD692S.DAT 

SHIP NAME IS .DD692S 

LENGTH BETWEEN PERPENDICULARS ....FT . 

LENGTH AT DESIGN WATERLINE .IT. 

DESIGN LOAD DRAFT .FT. 

MEAN TRIAL DRAFT .FT. 

MOULDED BEAM (MAX) .FT. 

DISPLACEMENT AT DESIGN LOAD .LTONS. 

VOLUMETRIC DISPLACEMENT .FT* * 3. 

MAXIMUM CROSS SECTION AREA . FT**2 . 

MIDSHIPS SECTION AREA . FT**2 . 

WATERPLANE AREA AT DESIGN DRAFT .FT**2 . 

LONGITUDINAL CENTER OF GRAVITY ...Xg . 

BLOCK COEFFICIENT . 

PP. I SHA'i I C COEFI I C I ENT . 


VERTICAL PRISMATIC COEFFICIENT 
WATERPLANE AREA COEFICIENT ... 


TRANS. WATERPLANE INERTIA COEFFICIENT . 

LONG. WATERPLANE INERTIA COEFFICIENT . 

TRANSVERSE SECOND MOMENT OF AREA . 

LONGITUDINAL SECOND MOMENT OF AREA . 

TONS. PFR INCH IMMERSION . 

MOMENT TO TRIM ONE INC!! . 

GM.FT. 


383.00 
383.00 
13.000 
13.000 
4 0.600 
3000 . 0 
0.10500E+06 
431.73 
4 2 2.24 
1 1878 . 
- 22.200 
0.51942 
0.63500 
0.800U0 
0.68000 
0.76386 
0.55962 
0.55432 
0 . 1 1 9 5 3 E+ 0 7 
0.10537E+09 
28.281 
6 5 0 . C 0 
3.7000 
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BM . 

KM .. 

KG . 

KB . 

LOGITUDINAL GM 
LOGITUDINAL BM 
LOGITUDINAL KM 


FT. 11.38 4 

FT. 19.271 

FT. 15.571 

FT. 7.8867 

FT. 995.80 

FT. 1003.5 

. 1011.4 


TRANSVERSE AND VF^ITCAL WEIGHT SHIFT EFFECTS 


NUMBER OF LON TONS OF WEIGHT ADDED . 25.000 

VERTICAL DISTANCE FROM CENTER OF GRAVIT. 2.5000 

TRANSVERSE DISTANCE FORM CENTERLINE. 3.2000 

NEW CENTER OF BOUYANCY . 7.9314 

NEW KG. 15.591 

NEW GM . 3.6299 

NEW KM . 19.221 

NEW BM. 11.29 0 

LIST ANGLE. NEGATIVE = STARBOARD. 0.41743 

FINAL DISPLACEMENT. 3025.0 

FINAL MEAN DRAFT . 13.074 


LONGITUDINAL WEIGHT SHIFT EFFECTS 


WEIGHT ADDED IN LONG TONS . 22.00 

LONGITUDINAL DISTANCE TO MIDSHIPS . 14.000 

LONGITUDINAL CENTER OF FLOATATION . -22.200 

FINAL DISPLACEMENT IN LONG TONS . 3022.0 

CHANGE IN TRIM . -1.2252 

DRAFT AFT . 12.523 

DRAFT FORWARD. 13.748 

NEW MEAN DRAFT . 13.136 
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TRIM ANGLE 


- 0.18329 


ITERATIONS OF TRANSVERSE STABILITY 
WITH GM HELD CONSTANT AND TSI VARYING 


TSI . 

GM.FT . 

BM .FT. 

KM .FT. 

KG .FT. 

KB .FT. 


TSI 

GM . 

BM 

KM 

KG 

KB 


FT 

FT 

FT 

FT 

FT 


TSI . 

GM.FT. 

BM .FT. 

KM .FT. 

KG .FT. 


KB 


FT 


0.19000 
3.7000 
11.587 
19.47-3 
15.774 
7.8867 

0.19200 
3.7000 
11.384 
19.271 
15.571 
7.8867 

0.19400 
3.7000 
11.185 
19.072 
15.372 
7.8867 
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APPENDIX C 


MANEUVERING PERFORMANCE REPORT 


TOOL BOX 


MANEUVERING PERFORMANCE REPORT 
THIS REPORT WAS GENERATED USING THE PROGRAM 
TOOL BOX WHICH WAS DEVELOPED FOR THE NAVAL 
ENGINEERING DEPARTMENT OF THE 


NAVAL POSTGRADUATE SCHOOL 


MONTEREY, CALIFORNIA 


PROFESSOR F. PAPOULIAS 


LT. GERALD MCGOWAN 
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TOOL BOX REPORT 


THE INPUT SHIP PARAMETERS ARE AS 

THE REPORT IS LOCATED IN FILE 
THE INPUT DATA FILE USED IS 

SHIP NAME IS . 

SHIP LENGTH.( FEET). 

WATER LINE MAX BEAM .(FEET). 

SHIP DESIGN DRAFT.(FEET). 

SHIP DISPLACEMENT. (SW) . (L TONS)... 

BLOCK COEFICIENT . 

CENTER OF GRAVITY .(LONG. NEG = AFT)... 


TRIAL TRIM OF SHIP.(FEET) 

ACTUAL TRIAL DRAFT.(FEET) 

SPEED OF APPROACH .(KNOTS) 


SUBMERGED PROFILE 30W AREA ...(FT**2) 

NUMBER OF RUDDERS . 

RUDDER AREA . (FT**2 PER RUDDER) 

RUDDER ANGLE ....(DEG. NEG ■= STBD ) . . 
STERN TYPE . . . (1 = CLOSED, 2 = OPEN) . 

NUMBER OF SCREWS. 

DEPTH OF WATER .(FEET). 


FOLLOWS 

DD692M.RPT 
DD692M.DAT 

DD692M 

. 383.00 

. 40.600 

. 13.000 

. 3000.0 

. 0.51942 

. -22.200 

. 0.00000E+00 

. 13.000 

. 25.000 

. 25.000 

. 1 

. 124.50 

. 30.000 

. 1 

. 2 

. 10000 . 


PAGE TWO OF THIS REPORT CONTAINS THE PREDICTED 
TURNING CIRCLE PERFORMANCE BASED UPON THE DATA ABOVE. 

PAGES 3 AND 4 CONTAIN THE CALCULATEDHYDRODYNAM1C 
DERIVATIVES AND THE MANEUVERING PERFORMANCE. 

PAGES 5 AND 6 ARE GENERATED IF USER SUPPLI EDMYDRODYNAMIC 
DERIVATIVES WERE USED AND STORED WITH THE DATA. 
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TOOL BOX REPORT 


DD692M.RPT 


THE TURNING CIRCLE DATA PRESENTED HERE 
ARE BASED UPON PREDICTION EQUATIONS PRESENTED BY 
C. A. LYSTER AND MRS. H. L. KNIGHTS IN 

"PREDICTION EQUATIONS FOR SHIPS' TURNING CIRCLES" 
NORTHEAST COAST INSTITUTION OF ENGINEERS AND SHIPBUILDERS 
TRANSACTIONS, VOLUME 95, NO. 4 


THE SHIF TURNING CHARACTEP T STICS ARE PREDICTED AS: 

STEADY TURNING DIAMETER.(FEET). 3175.8 

TACTICAL DIAMETER .(FEET). 3229.4 

ADVANCE AT 90 DEGREES OF TURN .(FEET). 2081.2 

TRANSFER AT 90 DEGREES .(FEET). 1578.1 

STEADY TURN VELOCITY .(KNOTS). 19.477 


THE NON DIMENSIONAL TURNING CIRCLE FACTORS ARE: 


STD' . 

. 8.2919 

TR' . 

. 8.4319 

AD' . 

. 5.4340 

TR' . 

. 4.1203 

VT/VA . 

. 0.77909 
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TOOL BOX REPORT 


DD6 9 2 M.RPT 

MANEUVERING PERFORMANCE USING CALCULATED 
HYDRODYNAMIC DERIVATIVES FROM INPUT SHIP DATA 

BASED UPON NUMERICAL MODELS PROPOSED BY 
D. CLARK, P. GEDLING AND G. HINE AS FOUND IN 
"THE APPLICATION OF MANEUVERING CRITERIA 
IN HULL DESIGN USING LINEAR THEORY" 

THE NAVAL ARCHITECT, MARCH, 19B3. 


THE LINEAR HYDRODYNAMIC DERIVATIVES: 

M' . 0.37378 E-02 

Iz’. 0.23361E-03 

Y ' v DOT .-0.43517E-02 

Y'r DOT .-0 . 14057E-03 

N'v DOT . 0.41408E-04 

N'r DOT .-0.27482E-03 

Y ' v .-0.67330E-02 

Y'r . 0.22520E-02 

N'v .-0.17227E-02 

N'r .-0.13218E-02 

Y'del . 0.25462E-02 

N'del .-0 . 12731 E-02 
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TOOL BOX REPORT 


DD692M.RPT 

THE RESULTING PERFORMANCE FACTORS: 


DOMINANT 

SHIP TIME 

CONSTANT 

Tl' . 

2.2686 


SHIP TIME CONSTANT 


T2' . 

... 0.36964 


TIME CONSTANT . 


T3' . 

... 0.74406 


TIME CONSTANT _ . 


T4 ' . 

0.25452 


NOMOTTO 

FIRST ORDER 

TINE C . 

T ' . 

... 1.8942 


RUDDER LOOP GAIN FACTOR .... 

K’ . 

... -2.6546 


RUDDER GAIN FACTOR 


K ' v . 

. . .-0.96400 


STEERING 

GEAR TIME 

CONSTANT 

T' E . 

... 0 . 00000E+00 

1 1/T ' I . 




... 0.52794 


1 1/K ' | . 




... 0.37670 


TURNING 

PERFORMANCE 

INDEX . . 

(P) . 

... 0.75056 


DYNAMIC 

STABILITY INDEX 

(C) . 

... 0.48814E- 

05 

SHIP IS 

DYNAMICALLY 

COURSE STABLE 



******** 

* EQUATIONS 

OF STATE 

********** 



D |PSI | 

|0 1 

0 | |PSI | 

|0 | 

| 0 0 | 


/ I R 1 

= |0 A22 

A23 M R | 

+ j B21 DEL + 

|G21 G22 | | Y 

EXT | 

T | V | 

| 0 A32 

A 3 3 | | V | 

1 B 3 | 

| G31 G32 [ | N 

EXT | 

A22 = 

-2.2778 

A23 = 

-3.8290 



A3 2 = - 

0.2051 0 

A3 3 = 

-0.86833 



B2 = 

-2 . 3555 

B 3 = 

0.29260 



G21 = 

63.046 

G22 = 

1976.3 



G 31 = 

124.21 

G32 = 

18.589 
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TOOL BOX REPORT 


DD692M. RPT 

MANEUVERING PERFORMANCE WITH USER SUPPLIED 
HYDRODyNAMIC DERIVATIVES 

BASED UPON NUMERICAL MODELS PROPOSED BY 
D. CLARK, P. GEDLING AND G. HINE AS FOUND IN 
"THE APPLICATION OF MANEUVERING CRITERIA 
IN HULL DESIGN USING LINEAR THEORY" 

THE NAVAL ARCHITECT, MARCH, 1983. 

0 . 37378E-02 
0.23361E-03 
0.43517E-02 
0.14057E-03 
0.41408E-04 
0.27482E-03 
0.67330E-02 
0.22520E-02 
0.17227E-02 
0.13218E-02 
0.25462E-02 
0.]3000E-02 


THE LINEAR HYDRODYNAMIC DERIVATIVES: 


lz' ... . 
Y'v DOT 
Y'r DOT 
N'v DOT 
N'r DO'? 
Y'v ... 
Y'r ... 
N'v ... 
N'r 

Y' de 1 . 
N'de1 . 
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TOOL BOX REPORT 


DD692M.RPT 

THE RESULTING PERFORMANCE FACTORS: 


DOMINANT SHIP TIME CONSTANT Tl' 


SHIP TIME CONSTANT . T2 ' 

TIME CONSTANT . T3 ' 

TIME CONSTANT . T4 ' 

NOMOTTO FIRST ORDER TIME C . T' 
RUDDER LOOP GAIN FACTOR .... K' 
RUDDER GAIN FACTOR . K'v 


STEERING GEAR TIME CONSTANT T’E 
I 1/T' | . 


2.2686 
0.36965 
0.75037 
0.25196 
1.8879 
-2.6918 
-0.97219 
0.00000E+00 
0.52970 


I 1 /K ' | . 0.37150 

TURNING PERFORMANCE INDEX .. (P) . 0.76520 

DYNAMIC STABILITY INDEX ... (C) . 0.48813E-05 


SHIP IS DYNAMICALLY COURSE STABLE 

********* EQUATIONS OF STATE ********** 

D |PSI | I 0 1 0 | |PSI | | 0 | | 0 0 | 

/ I R I = I 0 A22 A2 3| |R | + |B2; DEL + |G21 G2 2) |Y EXT| 

T | V | |0 A32 A3 3| |V | [B3| |G31 G32||N EXT| 

A22 = -2.2777 A23 = -3.8290 

A32 = -0.20510 A 3 3 = -0.86832 

B2 = -2.4086 B3 = 0.29210 

G21 = 63.045 G22 = 1976 . 3 

G 31 = 124.21 G3 2 = 18.588 
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APPENDIX D 


TOOL BOX WORKSHEET 


STATIC STABILITY 


1. SHIP NAME . 

2. SHIP LENGTH .(LPP FEET). 

3. SHIP LENGTH .(LWL FEET). 

4. DESIGN DRAFT . (FEET)... 

5. MEAN DRAFT . (FEET)... 

6. MAXIMUM BEAM . (FEET)... 

7. DESIGN DISPLACEMENT .(LONG TONS). 

8. BLOCK COEFFICIENT .(Cb) . . . . 

9. PRISMATIC COEFFICIENT .(Cp)- 

10. MIDSHIPS COEFFICIENT . (Cm).... 

11. VERTICAL PRISMATIC COEFFICIENT .(Cp) 

12. LONGITUDINAL CENTER OF GRAVITY .(Xg) 

TRANSVERSE STABILITY 

* 13. TRANSVERSE STABILITY INDEX .(GM/KM) . 

* 14. KG .(FEET) . . . 

* 15 . GM .(FEET) . . 

* 16. KM .(FEET) . . . 

* 17 . BM .(FEET) . . . 

18. TONS OF WEIGHT ADDED .(LONG TONS). 

19. VERTICAL DISTANCE WEIGHT TO CL . (FEET)... 

20. TRANSVERSE DISTANCE WEIGHT TO CL .(FEET) . . . 

LONGITUDINAL STABILITY 

**21. LONGITUDINAL GM .(FEET) . . . 

**22. LONGITUDINAL BM . (FEET)... 

**23. LONGITUDINAL KM.(FEET) . . . 

**24. LONGITUDINAL MOMENT .(II). 

**25. LONGITUDINAL WATER[LANE COEFFICIENT ... (Cil) .... 
**26. MOMENT TO TRIM ONE INCH .(MT1). 

27. WEIGHT ADDED IN LONG TONS. 

28. LONGITUDINAL DISTANCE WEIGHT TO MIDSHIPS. 

29. LONGITUDINAL CENTER OF FLOATATION (NEG. = AFT). 

* User must furnish any two of these. 

** User must furnish any one of these. 
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MANEUVERING PERFORMANCE 


1. SHIP NAME . 

2. SHIP LENGTH .(LPP FEET). 

3. SHIP BEAM . (FEET)... 

4. DESIGN DRAFT . (FEET)... 

5. DESIGN DISPLACEMENT . (FEET)... 

6. BLOCK COEFFICIENT .(Cb) . . . 

7 . CENTER OF GRAVITY . (Xg) .... 

8 . TRIM .(FEET) . . . 

9. TRIAL DRAFT . (FEET)... 

10. SPEED OF ADVANCE INTO TURN . (KNOTS).. 

11. SUBMERGED BOW AREA . (SQ. FEET). 

12. NUMBER OF RUDDERS . 

13. TOTAL RUDDER AREA . (SQ. FEET). 

14. RUDDER ANGEL IN TURN .(DEG) . . . 

15. STERN TYPE (1 - CLOSED, 2 - OPEN). 

16. NUMBER OF SCREWS . 

17. WATER DEPTH .(FEET) . . . 


USER SUPPLIED HYDRODYNAMIC COEFFICIENTS (NOT REQUIRED) 

18 . ... 




























APPENDIX E 


TOOL BOX MAIN PROGRAM 


PROGRAM TB 

*********************************************************************** 

* THE TOOL BOX MAIN PROGRAM ESTABLISHES THE VIRTUAL DISPLAY 

* BOUNDARIES AND DRAWS THE WORKING GRAPHICS AND TEXT TO IT. IT THEN 

* CREATES RUN TIME EVENT TRAPS TOR HIGHLIGHTING CHOICES AND TOR 

* CHOICE SELECTION. FINALLY, IT GOES INTO HIBERNATION AWAITING THE 

* RUN TIME EVENTS TO TRIGGER SUBSEQUENT SUBROUTINES. 

INCLUDE ' GENERAL.FOR/LIST' 

REAL DY2 

**** SINCE THE SUBROUTINES ARE PASSED AS ARGUMENTS IN THE AST ROUTINES 
**** THEY MUST BE CALLED IN EXTERNAL STATEMENTS 
EXTERNAL NOWHERE, REPORT 

EXTERNAL DARK,DARK2,LIGHT,STATIC,EXIT,MANEUVER, UTIL 


**** CREATE A NEW VIRTUAL DISPLAY ************************************ 
VD_ID=UIS $ CREATE_DISP LAY("1.,-1.,20.,25.5,40.0,30.0) 

**** AND ADD COLORS TO IT ******************************************** 
CALL UIS$SET_COLOR(VD_ID,1,.75,1.,1.) 

CALL UIS$SET__COLOR (VD_ID, 0, 0 . , 0 . , .5) 


★ ★ ★ * 


SET UP SOME CHARACTER TYPES******************************* "****** 
CALL UIS$SET_WRITING_MODE <VD_ID,0,1,UIS$C_MODE_REPLN) 

CALL UIS$SET_WRITING_MODE(VD_ID,1,2,UIS$C_MODE_REPL) 

CALL UIS$SET_WRITING_MODE <VD_ID,0,4,UIS$C_MODE_REPLN) 

CALL UIS$SET_CHAR_SIZE<VD_ID,4,5,,.138,.39) 

CALL UIS$SET_CHAR_SIZE<VD_ID,0,7,,.125,.3) 
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*************INITIALIZE** ****** * ************************************** 
XO = 0. 

XI - 3.0 
Y_LINE = .7 
FL1 = .FALSE. 

FL2 = .FALSE. 

YPOS “ 1. 


*************** DRAW THE main MENU************************************* 
********************************************************************** 

C THIS ROUTINE DRAWS THE TITLE BOXES FOR THE MAIN MENU 
DO 10 Y_COOR « 0.2,5.8,.8 
DY = Y_COOR + .4 

CALL UIS8PLOT(VD_ID,0,0.,Y_COOR,3.,Y_COOR,3.,DY,0., 

& DY,0.,Y_COOR) 

10 CONTINUE 

**** CALL UP THE OPTIONS TITLES FILE ********************************* 
INCLUDE 'OPTIONS.FOR' 

**** NOW FILL THE BLOCKS OF THE MAIN MENU WITH THE STORED TITLES ***** 
DO 20 I - 1, 8 

CALL UIS$TEXT(VD_ID,0,OPTION(I),.3,Y_LINE) 

Y_LINE *= Y_LINE + .8 
20 CONTINUE 


**** TURN ON THE MAIN MENU DISPLAY VIEWPORT ************************** 
WD_MAIN=UIS$CREATE_WINDOW(VD_ID,'SYS$WORKSTATION','MAIN MENU', 
& -.5,-.5,10.,7.,40.,30.) 

****************** SET UP THE AST'S FOR HIGHLIGHTING ***************** 
DO 50 Y_COOR - .2,5.8, .8 
DY = Y_COOR + .2 

CALL UIS$SET_POINTER_AST (VD_ID, WD_MZ\IN, DARK, , X0, Y_COOR, XI, 

& DY,LIGHT) 

50 CONTINUE 
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CALL UIS$ SET_BUTTON_AST(VD_ID,WD_MAIN,EXIT,,,XO, .2,XI, .6) 

CALL UIS$SET_BUTTON_AST(VD_ID,WD_MAIN,REPORT,,,XO,1.0,XI,1.4) 
CALL UIS$SET_BUTTON_AST(VD_ID,WD_MAIN,UTIL,,,XO,1.8,XI,2.2) 

CALL UIS$SET_BUTTON_AST(VD_ID,WD_MAIN,NOWHERE,,,X0,2.6,XI,3.0) 
CALL UIS$SET_BUTTON_AST <VD_ID,WD_MAIN,NOWHERE,,,X0,3.4,X1,3.8) 
CALL UIS$SET_BUTTON_AST(VD_ID,WD_MAIN,NOWHERE,,,XO,4.2,XI,4.6) 
CALL UIS$SET_BUTTON_AST(VD_ID,WD_MAIN,MANEUVER,,,XO,5.0,XI,5.4) 
CALL UIS $ SET_BUTTON_AST(VD_ID,WD_MAIN,STATIC,,,XO, 5.8,XI,6.6) 

**** PUT IN THE TITLE BLOCK TEXT ************************************* 
INCLUDE 'HEADER.FOR/LIST' 

*** DRAW THE STATIC / MANEUVERING INTERACTIVE DISPLAY ***************** 
********************************************************************** 

CALL UIS$PLOT(VD_ID,0,-.5,10.,10.,10.,10.,18.8,-.5, 

& 18.8,-.5,10.) 

CALL UISSLINE(VD_ID,0,3.5,10.,3.5,18.8,-.5,11.,3.5,11., 

& -.5,11.4,3.5,11.4,-.5,12.4,3.5,12.4,-.5,12.8,3.5,12.8, 

& -.5,18.4,10.,18.4) 

DO 30 Y_COOR =13. , 18.4, .8 
DY = Y_COOR + .4 
DY2 - DY +.1 

Z = 9 + INT((Y_COOR - 12.9)/.8) 

CALL UIS$TEXT(VD_ID,0,OPTION(Z),.3,DY2) 

CALL UISSPLOT(VD_ID,0,X0,Y_COOR,XI,Y_COOR,XI,DY,X0, 

& DY,X0,Y_COOR) 

30 CONTINUE 

**** FILL THE TITLE BLOCKS OF WORKING DISPLAY ************************ 
CALL UISSTEXT(VD_ID,5,BLOCK(1),-.5,12.85) 

CALL UIS$TEXT(VD_ID,5,BLOCK(2),-.5,11.4) 

CALL UISSTEXT(VD_ID,5,BLOCK(3),-.5,18.8) 

CALL UIS$TEXT(VD_ID,5,LONG_TITLE(1),4.,18.P) 

CALL HCUIS$WRITE_DISPLAY(VD ID,'HARD.UIS') 
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**** NOW DRAW UP THE REPORT SCREEN *********************************** 
CALL RPTJ3RAPH 

**** FINALLY, WAIT FOR THINGS TO HAPPEN ****************************** 
CALL SYS$HIBER() 

40 END 
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APPENDIX F 


SUBROUTINE KEY_READ 

**** START KEY READ SUBROUTINE ******************************* 

*************************************'* , *********^*****<H>****** 


SUBROUTINE KEY_READ (LINE,FCHAR,XSTART,YSTART ,*) 

INCLUDE 'TOP.FOR' 

LOGICAL FCHAR, FPRIOD 
LOGICAL*4 KEY_IN 
LOGICAL*1 KEYBUF(4) 

EQUIVALENCE (KEY_IN,KEYBUF) 

REAL DEL_X,XSTART,YSTART,XSL,XSH,YSL,YSH 
CHARACTER LINE*12, KEY_IS*1 

**** FIND THE LOCATION OF THE KEY ECHO ********************** 
XSL = XSTART - .I 
XSH = XSTART + 3. 

YSL = YSTART - .4 
YSH = YSTART + .1 

**** START THE READ SEQUENCE ******************************** 

10 COUNT * 0 
FPRIOD = .TRUE. 

11 KEY_IN-UIS$READ_CHAR(KB_ID) 

CALL LIBSCHAR(KEY_IS,KEYBUF(1)) 

**** IF BACKSPACE IS DETECTED, THE DATA NEEDS CHANGING ****** 
IF ((COUNT .GT. 0) .AND. (KEYBUF(1) .EQ. 127)) THEN 
CALL UIS$ERASE(VD_ID,XSL,YSL,XSH,YSH) 

COUNT - COUNT - 1 
LINE - LINE(:COUNT) 

CALL UIS$TEXT<VD_ID,7,LINE,XSTART,YSTART) 

GO TO 11 
END IF 

**** WHEN A PERIOD IS READ, SET THE FLAG ******************** 
IF (KEYBUF(1) .EQ.46) FPRIOD - .FALSE. 
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* ★ ★ * 


IF [RETURN] IS DETECTED, TEST AND RETURN ****** 

IF((KEYBUF(1) .EQ. 13) .AND. (COUNT .EQ. 0)) RETURN 1 
IF(KEYBUF(1) .EQ. 13) THEN 

CALL UISSERASE(VD_ID,XSL,YSL,XSH,YSH) 

IF(FPRIOD .AND. FCHAR) LINE - LINE(:COUNT)//'. ' 
RETURN 
ELSE 

DEL_X - XSTART + .125 * COUNT 
LINE - LINE ( .’COUNT)//KEY_IS 
COUNT - COUNT + 1 

CALL UISSTEXT <VD_ID, 7, KEY__IS, DEL_X, YSTART) 

GO TO 11 
END IF 

20 END 

****************************** END KEY READ *********** 
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APPENDIX G 


SUBROUTINE UTIL 


************************************************************* 

* UTILITY IS A SUBROUTINE WHICH ALLOWS THE USER * 

* TO SHELL DCL COMMANDS WITHOUT LEAVING THE ENVIRONMENT * 

* OF THE PROGRAM. WHEN FINISHED WITH UTILITIES, ENTER * 

* THE COMMAND 'EXIT' TO RETURN TO THE MAIN MENU ************ 

SUBROUTINE UTIL 
INCLUDE 'GENERAL.FOR' 

CHARACTER *64 CMMD 

STA=UIS$SET_POINTER_POSITION(VD_ID,WD_MAIN, 9.9,5.) 

**** PUSH THE MAIN MENU TO THE BACK OF THE DISPLAY ********** 
CALL UIS$PUSH_VIEWPORT(WD_MAIN) 

**** WRITE THE INSTRUCTIONS UP TO THE SCREEN **************** 
1 TYPE *, 'ENTER THE DCL COMMAND ...[RETURN] TO EXIT' 

PRINT *,' ' 

READ (*,FMT“'(BN,A)') CMMD 

**** ECHO THE COMMAND *************************************** 
PRINT *, CMMD 
IF (CMMD .EQ. ' ') THEN 

CALL UIS$POP_VIEWPORT(WD_MAIN) 

RETURN 
END IF 

**** PERFORM THE COMMAND ************************************ 
CALL LIBSSPAWN(CMMD) 

PRINT *,' ' 

GOTO 1 

END 

************************* END 0F SUBROUTINE UTIL ************* 
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APPENDIX H 


SUBROUTINE DATAJN 


** SUBROUTINE DATA IN ***************************************** 
THIS SUBROUTINE ALLOWS TYHE OPERATOR TO INPUT KEY BOARD * 
DATA OR CHANGE THE DATA NEEDED FOR THE SECTION CALCULATION * 
AND DISPLAY. * 

i *************************************************************** 

SUBROUTINE DATA_IN 

INCLUDE 'TOP.FOR' 

INCLUDE 'TOP_MANU.FOR' 

STA=UIS$SET_POINTER_POSITION(VD ID,WD MANU,0.,10.2) 
KB_ID=UIS$CREATE_KB('SYS$WORKSTATION') 

CALL UIS$ENABLE_KB(KB_ID,WD_MANU) 


CALL DATA_LBL (VD_ID,DATA_UP) 

CALL UISSERASE (VD_ID,-.4,10.1,3.4,10.9) 

CALL UISSTEXT(VD_ID,7,'ENTER A LINE NUMBER',0.,11.) 
CALL UISSTEXT(VD_ID,7,'OR [RETURN] TO EXIT',0.,10.6) 
CALL KEY_READ (LINE,.TRUE.,0.,12.,*300) 

READ (LINE,FMT-'(F2.0)',ERR - 5 ) RLINE NO 
LINE_NO - INT(RLINE_NO) 

GO TO (10,20,30,40,50,60,70,80,90,100, 

«. 110,120,130, 140, 150, 160,170,180,190,200) LINE NO 


IF IT GETS TO HERE A MISTAKE HAS BEEN MADE ******* 

CALL UISSERASE(VD_ID,-.4,10.1,3.4,10.9) 

CALL UIS5TEXT(VD_ID,7,'IMPROPER LINE NUMBER',0.,11.) 

CALL UIS$TEXT(VD ID, 7,'ENTER A NEW NUMBER PLEASE' 0., 10.6) 
GOTO 3 


CALL FIND_IT(LINE_NO,DEL_Y,LINE,*300) 
infile — line{:8) 

DATA_UP(1) - LINE 

CALL UISSTEXT(VD_ID,7,LINE,7.,DEL Y) 

GOTO 1 

CALL FIND_IT(LINE_NO,DEL_Y,LINE,*300) 

DATA_UP(2) = LINE 

READ (LINE, FMT-'(G12. 5 )',ERR = 5) LENGTH 
CALL UIS$TEXT (VD_ID, 7,LINE,7.,DEL_Y) 

* CHECK TO SEE IF WE CAN CHANGE CB ? **************** 

IF ((BEAM .GT. 0.).AND.(DRAFT . GT. 0.).AND.(DSPMNT 








& .GT. 0.)) THEN 

CB = DSPMNT * 35/(LENGTH*DRAFT*BEAM) 

WRITE (DATA_UP(6), FMT-'(G12.5)') CB 
CALL UI3$ERASE(VD_ID,7.,15.8,9.9,16.2) 

CALL UIS$TEXT(VD_ID,7,DATA_UP(6),7.,16.2) 

END IF 

GOTO 1 

30 CALL FIND_IT(LINE_NO,DEL_Y,LINE,*300) 

DATA_UP(3) - LINE 

READ (LINE, FMT-'(G12.5)',ERR - 5) BEAM 
CALL UIS$TEXT(VD_ID,7, LINE,7.,DEL_Y) 

IF ((BEAM .GT.0.).AND.(DRAFT .GT. 0.) .AND.(DSPMNT 
& .GT. 0.)) THEN 

CB - DSPMNT * 35/(LENGTH*DRAFT*BEAM) 

WRITE (DATA_UP(6), FMT-'(G12.5)') CB 
CALL UIS$ERASE(VD_ID,7.,15.8,9.9,16.2) 

CALL UISSTEXT(VD_ID,7,DATA_UP(6),7.,16.2) 

END IF 
GOTO 1 

40 CALL FIND_IT(LINE_NO,DEL_Y,LINE,*300) 

DATA_UF(4) - LINE 

READ (LINE, FMT-'(G12.5)',ERR - 5) DRAFT 
CALL UIS$TEXT(VD_ID,7,LINE,7.,DEL_Y) 

IF ((BEAM .GT.O.).AND.(LENGTH .GT. 0.) .AND.(DSPMNT 
& .GT. 0.)) THEN 

CB - DSPMNT * 35/(LENGTH*DRAFT*BEAM) 

WRITE (DATA_UP(6), FMT-'(G12.5)') CB 
CALL UIS$ERASE(VD_ID,7.,15.8,9.9,16.2) 

CALL UIS$TEXT(VD_ID, 7,DATA_UP(6),7.,16.2) 

END IF 
GOTO 1 

50 CALL FIND_IT(LINE_NO,DEL_Y,LINE,*300) 

DATA_UP(5) - LINE 

READ (LINE, FMT-' (G12.5)' , ERR - 5) DSPMNT 
CALL UIS$TEXT(VD_ID,7,LINE,7.,DEL_Y) 

IF ((BEAM .GT.O.).AND.(DRAFT .GT. 0.) .AND.(LENGTH 
& .GT. 0.)) THEN 

CB - DSPMNT * 35/(LENGTH*DRAFT*BEAM) 

WRITE (DATA_UP(6), rMT-'(G12.5)') CB 
CALL UISSERASE(VD_ID,7.,15.8,9.9,16.2) 

CALI UIS$TEXT(VD_ID,7,DATA_UP(6),7.,16.2) 

END IF 
GOTO 1 

60 CALL FIND_IT(LINE_NO,DEL_Y,LINE,*300) 

DATA_UP(6) - LINE 

READ (LINE, FMT-'(G12.5)',ERR - 5) CB 
CALL UISSTEXT(VD_ID,7,LINE,7.,DEL_Y) 

IF ((BEAM .GT.0.).AND.(DRAFT .GT. 0.) .AND.(LENGTH 
& .GT. 0.))THEN 

DSPMNT - CB * LENGTH * DRAFT * BEAM / 35 
WRITE (DATA_UP(5), FMT-'(G12.5)') DSPMNT 
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CALL UIS$ERASE(VD_ID,7.,16.2,9.9,16.6) 
CALL UISSTEXT(VD_ID,7,DATA_UP(5),7.,16.6) 
END IF 
GOTO 1 

70 CALL FIND_IT(LINE_NO,DEL_Y,LINE,*300) 

DATA_UP(7) = LINE 

READ (LINE, FMT='(G12.5)',ERR - 5) XG 
CALL UIS$TEXT(VD_ID,7,LINE,7.,DEL_Y) 

GOTO 1 

80 CALL FIND_IT(LINE_NO,DEL_Y,LINE,*300) 

DATA_UP(8) - LINE 

READ (LINE, FMT“' (G12.5) ' , ERR - 5) TRIM 
CALL UISSTEXT(VD_ID,7,LINE,7.,DEL_Y) 

GOTO 1 

90 CALL FIND_IT(LINE_NO,DEL_Y,LINE,*300) 

DATA_UP(9) - LINE 

READ (LINE, FMT='(G12.5)',ERR = 5) TT 
CALL UIS$TEXT(VD_ID,7,LINE,7.,DEL_Y) 

GOTO 1 

100 CALL FIND_IT(LINE_NO,DEL_Y,LINE,*300) 

DATA_UP(10) “ LINE 

READ (LINE, FMT-'(G12.5)',ERR - 5) SPEED 
CALL UISSTEXT(VD_ID,7,LINE,7.,DEL_Y) 

GOTO 1 

110 CALL FIND_IT<LINE_NO,DEL_Y,LINE,*300) 

DATA_UP(11) - LINE 

READ (LINE, FMT='(G12.5)',ERR - 5) AB 
CALL UIS$TEXT(VD_ID,7,LINE,7.,DEL_Y) 

GOTO 1 

120 CALL FIND_IT(LINE_NO,DEL_Y,LINE,*300) 

DATA_UF(12) = LINE 

READ (LINE, FMT«'(G12.5)',ERR - 5) NRUD 
CALL UIS$TEXT(VD_ID,7,LINE,7.,DEL_Y) 

GOTO 1 

130 CALL FIND_IT(LINE_NO,DEL_Y,LINE,*300) 

DATA_UP(13) - LINE 

READ (LINE. FMT='(G12.5)',ERR - 5) ARUD 
CALL UIS$TEXT(VD_ID,7,LINE,7.,DEL_Y) 

GOTO 1 

140 CALL FIND_IT(LINE_NO,DEL_Y,LINE,*300) 

DATA_UP(14) - LINE 

READ (LINE, FMT-'(G12.5)',ERR - 5) DEL_RUD 
CALL UISSTEXT(VD_ID,7,LINE,7.,DEL_Y) 

GOTO 1 

150 CALL FIND_IT(LINE_NO,DEL_Y,LINE,*300) 

DATA_UP(15) - LINE 

READ (LINE, FMT=' <G12.5) ' , ERF. - 5) STERN 
CALL UIS$TEXT(VD_ID,7,LINE,7. , DEL_Y) 

GOTO 1 
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160 CALL FIND_IT(LINE NO,DEL_Y,LINE,*300) 
DATA_UP(1^) - LINE 

READ (LINE, FMT-'(G12.5)', ERR - 5) NPROP 
CALL UISSTEXT(VD_ID,7,LINE,7.,DEL_Y) 

GOTO 1 

170 CALL FIND_IT(LINE NO,DEL_Y,LINE,*300) 
DATA_UP(17) - LINE 

READ (LINE, FMT-'(G12.5)',ERR - 5) DPTH 
CALL UIS$TEXT <VD_ID,7,LINE,7.,DEL_Y) 

GOTO 1 

180 CALL FIND IT<LINE_NO,DEL_Y,LINE,*300) 
DATA_UP(lS) - LINE 

READ (LINE, FMT-'(G12.5)',ERR - 5) UNK 
CALL UIS$TEXT(VD_ID,7,LINE,7.,DEL_Y) 

GOTO 1 

190 CALL FIND_IT(LINE_NO,DEL_Y, LINE, *300) 
DATA_UP(19) - LINE 

READ (LINE, FMT-'(G12.5)',ERA - 5) UNK 
CALL UISSTEXT<VD_ID,7,LINE,7.,DEL_Y) 

GOTO 1 


200 CALL FIND_IT(LINE_NO,DEL_Y,LINE,*300) 
DATA_UP(20) - LINE 

READ (LINE, FMT-'(G12.5)',ERR - 5) UNK 
CALL UIS$TEXT(VD_ID,7,LINE,7.,DEL_Y) 
GOTO 1 


300 


CALL UIS$DISABLE_KB (KB_ID) 

CALL UIS5ERASE(VD_ID,-.4,10.1,3.4,10.9) 

CALL UIS$TEXT(VD_ID, 7, 'SELECT AN OPTION',0.,11.) 
CALL UIS$TEXT(VD_ID,7,' WITH THE MOUSE ',0.,10.6) 


RETURN 

END 

************************* END OF DATA IN *********************** 
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APPENDIX I 


SUBROUTINE FINDJT 


**** A ROUTINE FOR READING AND TRANSFER OF KEY STROKES**** 
********************************************************** 

SUBROUTINE FIND_IT<LINE_NO,DEL_Y,LINE,COUNT,*) 

INCLUDE 'TOP.FOR' 

REAL DEL_Y, DY 
LOGICAL FCHAR 
CHARACTER LINE*12 

CHARACTER *25 MANU_INST1(20), MANU_INST2(20) 

**** NOW FOR INSTRUCTIONS *************************** 
MANU_INST1(1) - 'ENTER A FILE NAME OF ' 

MANU_INST2(1) - 'EIGHT CHARACTERS MAX ' 

MANU_INST1(2) - 'ENTER THE SHIP LENGTH ' 

MANU_INST2(2) - ' RETURN TO EXIT ' 

MANU_INST1(3) - 'ENTER THE SHIPS BEAM ' 

MANU_INST2(3) - ' RETURN TO EXIT' 

MANU_INST1(4) - 'ENTER THE SHIP DRAFT ' 

MANU_INST2(4) - ' RETURN TO EXIT ' 

MANU_INST1(5) - 'ENTER THE DISPLACEMENT ' 

MANU_INST2(5) - ' CB IS RECALCULATED' 

MANU_INST1(6) - ' ENTER THE CB ' 

MANU_INST2(6) - 'DISPLACEMENT RECOMPUTED' 

MANU_INST1(7) - 'ENTER THE LONG. COG. ' 

MANU_INST2(7) - ' RETURN TO EXIT' 

MANU_INST1(8) - ' TRIAL TRIM IN FEET' 

MANU_INST2(8) - ' DOWN STERN - NEG.' 

MANU_INST1(9) - ' ENTER TRIAL DRAFT' 

MANU_INST2(9) - ' IN FEET ' 

MANU_INST1(10) - ' ENTER APPROACH SPEED' 

MANU_INST2(10) - ' IN KNOTS' 

MANU_INST1(11) - ' SUBMERGED PROFILE BOW' 

MANU_INST2(11) - ' AREA IN FEET**2' 

MANU_INST1(12) - ' ENTER NO. OF RUDDERS' 

MANU_INST2(12) - ' RETURN TO EXIT' 

MANU_INST1(13) - ' RUDDER AREA IN SQ.' 

MANU_INST2(13) - ' FEET OF ONE RUDDER' 

MANU_INST1(14) - ' ENTER THE RUDDER ' 

MANU_INST2(14) - ' ANGLE IN DEGREES' 

MANU_INST1(15) - ' 1 FOR CLOSED STERN' 

MANU_INST2(15) - ' 2 FOR OPEN STERN' 

MANU_INST1(16) - ' NO. OF SCREWS' 

MANU_INST2(16) - ' RETURN TO EXIT' 

MANU_INST1(17) - ' WATER DEFTH IN FEET' 

MANU INST2(17) - ' RETURN TO EXIT' 
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**** PRINT UP THE CORRECT INSTRUCTION ***************** 
CALL UIS$ERASE(VD_ID,-.4,10.1,3.4,10.9) 

DEL_Y ■= 18.6 - .4 * LINE_NO 

CALL UIS$TEXT(VD_ID,7,MANU_INST1(LINE_NO),0.,11.) 
CALL UIS$TEXT(VD_ID,7,MANU_INST2(LINE_NO),0., 10.6) 

**** DOES THE STRING NEED TO BE CONDITIONED? ********** 
IF (LINE_NO .EQ. 1 ) THEN 
FCHAR = .FALSE. 

ELSE 

FCHAR - .TRUE. 

END IF 

**** READ THE INPUT STRING AND WRITE IT UP ************ 
CALL KEY_READ(LINE,TCHAR,0.,12.,*300) 

DY - DEL_Y - .35 

CALL UIS$ERASE(VD_ID,7.,DY,10.,DEL_Y) 

CALL UIS$TEXT(VD_ID,7,LINE,7.,DEL_Y) 

RETURN 

300 RETURN 1 
END 

*********************** END FIND IT ******************* 
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APPENDIX J 


SUBROUTINE DATA_LBL 


* r************************************ 

* A ROUTINE WHICH WRITES UP THE MANUEVERING DISPLAY LINE * 

* LABLES. NEED ONLY SUPPLY THE VD_ID NUMBER. THIS MAY BE * 

* CHANGED LATER TO WRITE IN PREVIOUS DATA.*********************** 


SUBROUTINE DATA_LBL (VD_ID,DATA_UP) 

IMPLICIT INTEGER (A-Z) 

INCLUDE 'SYS$LIBRARY:UISENTRY' 

INCLUDE 'SYS$LIBRARY:UISUSRDEF' 

REAL DEL_Y 

CHARACTER *18 LINE_LBL(20), DATA_UP(20)*12 
CALL UIS$ERASE(VD_ID,4.,10.1,9.9,18.3) 


★ ★ * * 


STORE THE LINE LABELS FOR THE DISPLAY ************ 


LINE_LBL(1) 
LINE_LBL(2) 
LINE_LBL (3) 
LINE_LBL(4) 
LINE_LBL(5) 
LINE_LBL(6) 
LINE_LBL(7) 
LINE_LBL(8) 
LINE_LBL(9) 
LINE_LBL(10) 
LINE_LBL(11) 
LINE_LBL(12) 
LINE_LBL(13) 
LINE_LBL(14) 
LINE_LBL(15) 
LINE_LBL(16) 
LINE_LBL(17) 
LINE_LBL(18) 
LINE_LBL(19) 
LINE LBL (20) 


= '1. SHIP FILE NAME.' 
= '2. SHIP LENGTH ... ' 

*= ' 3 . BEAM .' 

= '4. DRAFT .' 

- '5. DISPLACEMENT...' 

« '6. CB .' 

- '7. CENTER Or GRAV.' 

= '8. TRIM.' 

= '9. TRIAL DRAFT_' 



'10. 

SPEED . 


= 

' 11. 

BOW AREA . . . 

r 

- 

'12. 

NO. OF RUDDERS. ' 

- 

'13. 

RUDDER AREA. 

r 

= 

'14. 

RUDDER ANGLE 

f 


' 15 . 

STERN TYPE.. 

f 


'16. 

NO. OF SCREWS .' 


'17. 

WATER DEPTH 

f 


' 18. 

LATER ... 

r 

= 

'19. 

LATER ... 

e 

■= 

'20. 

LATER ... 

t 
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**** WRITE UP THE LABELS AND ANY DATA WHICH EXISTS **** 
DO 10 I = 1 ,20 

DEL_Y = 18.6 - .4*1 

CALL UISSTEXT(VD_ID,7,LIN£_LBL(I),4.5,DEL_Y) 
CALL UIS$TEXT(VD_ID,7,DATA _UP(I),7.,DEL_Y) 

10 CONTINUE 

RETURN 

END 

************************ end DATA LBL ***************** 
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APPENDIX K 


SUBROUTINES TC.CAL AND TC_CAL_RPT 


****** TC CAL CALCULATES THE STD, TD, AD, TR, AND VT ********** 
*********************************************************:****** 

SUBROUTINE TC_CAL 

INCLUDE 'TOP.FOR' 

INCLUDE 'TOP_MANU.FOR' 

CHARACTER TC_DATA(5)*12 

**** CALL THE CALCUALTING ROUTINE ********************* 

CALL TC_CAL_RPT 

**** CONVERT THE NUMBERS TO CHARACTER STRINGS ********* 


WRITE(TC 

DATA (1 ), 

FMT-' 

(G12.5) ') 

STD 

WRITE (TC" 

DATA (2) , 

FMT-' 

(G12.5) ' ) 

TD 

WRITE (TC‘ 

DATA( 3 ) , 

FMT*=' 

(G12.5)') 

AD 

WRITE (TC‘ 

DATA (4) , 

FMT=' 

(G12.5) ') 

TR 

WRITE (TC 

DATA (5) , 

FMT=*=' 

(G12.5)') 

VT 


CALL UIS5ERASE(VD_ID,7.5,10.6,9.9,12.6) 

**** DISPLAY THE NEW DATA ************** * ,.**„******* 

DO 20 I = 1,5 

DEL_Y = 13. - I * .4 

CALL UISSTEXT(VD_ID,7,TC_DATA(I),7.6,DEL_Y) 

20 CONTINUE 

RETURN 

END 

************************** END TC CAL ************************* 


★ ****************************** 
** THIS ROUTINE DOES THE TURNING CIRCLE CALCULATIONS. IT * 

* IS SPLIT OUT IN ORDER TO BE CALLABLE FROM THE REPORT SECTION * 


SUBROUTINE TC_CAL_RPT 

INCLUDE 'TOP.FOR' 
INCLUDE 'TOP MANU.FOR' 


IF 


2 

2 

2 


(NPROP .LT. 1.1) THEN 

STD - (4.19 +(194. - 20 3 . *CB) / ABS (DEL_P.UP > + . ~ - tt 
* (DEL_RUD/ABS (DEL_RUP) ) * (STEF.N - l.)< ‘ * r " - 4 " 

+ 4 7.4 *TRIM - 13.0 *EEAM + ( ( 3 . ?2 * (STEF.N-. . ' 

-35.8* (STERN-1 .)) *APJJD f 7 . 9* AE ) ,'TT 

TD = .91 * STD + .424*SPEED*LENGTH**.5 + .67 5*LENGTH 
AD - .519*TD + 1.33*LENGTH 
TR = .4 97*TD - .065*LENGTH 


' F AF' 
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N) K) K) 


VT = (.074*TD/LENGTH + . 149)*SPEED 
ELSE 

STD = (.727+(188-197*CB)/ABS(DEL_RUD))*LENGTH 
+4.65*BEAAAAM+41*TRIM 
+(25.56*AB-218*ARUD*(NRUD-1))/TT 
+3.2*SPEED*LENGTH**.5 

TD - STD+.14*LENGTH 
AD - .514*TD+1.1*LENGTH 
TR = .531*TD-.357*LENGTH 
VT - (.028*TD/LENGTH+.543)*SPEED 

END IF 

RETURN 

END 

************************* END T c CAL RPT **************** 
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APPENDIX L 


SUBROUTINE RECORDIT 


***************************************************************** 

* SUBROUTINE RECORDIT SAVES THE INPUT DATA WITH FILE NAME * 

* OF SHIPNAME AND FILE TYPE .DAT AUTOMATICALLY. * 

***************************************************************** 

SUBROUTINE RECORDIT 


INCLUDE 'TOP.FOR' 

INCLUDE 'TOP_MANU.FOR' 

LOGICAL *1 USER 
REAL DUMMY 
CHARACTER FNAME*12 

STA - UISSSET POINTER POSITION(VD ID,WD_MANU,0.,10.) 


**** OPEN A NEW FILE AND WRITE THE DATA TO IT ************** 
OPEN(2, FILE = INFILE, STATUS - 'NEW',blank*'null') 
REWIND (2) 

WRITE (2,100) INFILE 

WRITE (2,110) LENGTH, BEAM, DRAFT, DSPMNT 
WRITE (2,110) CB, XG, TRIM,TT 
WRITE (2,110) SPEED, AB, NRUD, ARUD 
WRITE (2,110) DEL RUD, STERN, NPROP, DPTH 


**** AND WRITE THE HYD. DERIVATIVES INTO THE FILE ********** 
WRITE (2,FMT -'(14)') USER 
WRITE (2,110) YVD,YRD,NVD,NRD 
WRITE (2,110) YV,YR,NV,NR 
WRITE (2,110) YD,ND,DUMMY,DUMMY 
ENDFILE (2) 

CLOSE(2) 


**** AND REPORT OUT WHEN DONE ****************************** 
FNAME - INFILE(:INDEX(INFILE,' '))//'.DAT' 

CALL UIS$ERASE(VD_ID,-.4,10.1,3.4,10.9) 

CALL UIS$TEXT(VD_ID,7,'FILE SAVED AS',0.,11.) 

CALL UIS$TEXT(VD_ID,7,FNAME,0.,10.6) 

100 FORMAT (BN,A) 

110 FORMAT (4G12.5) 

RETURN 

END 

*********************** END RECORDIT *********************** 
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APPENDIX M 


SUBROUTINE READ.FILE 

READ FILE IS A SUBROUTINE WHICH READS THE DATA INPUT FILE i 
SPECIFIED BY KEYBOARD ENTRY. * 


SUBROUTINE READ_FILE 

INCLUDE 'TOP.FOR' 

INCLUDE 'TOP_MANU.FOR' 

STA-UIS$SET_POINTER_POSITION(VD_ID,WD_MANU,0.,10.2) 

**** CREATE AND ENABLE THE KEYBOARD ************************ 
KB_ID=UIS$CREATE_KB{'SYS$WORKSTATION' ) 

CALL UIS$ENABLE_KB<KB_ID,WD_MANU) 

**** WRITE UP THE INSTRUCTION ****************************** 

CALL UISSERASE <VD_ID,-.4,10.1,2.3,10.9) 

CALL UIS$TEXT(VD_ID,7,'ENTER THE FILE NAME',0.,11.) 

CALL UISSTEXT(VD_ID,7,'AND FILE EXTENSION',0.,10.6) 

**** READ THE FILE AS FLOATING POINT NUMBERS *************** 

CALL KEY_READ(LINE,'TRUE',0.,12.,*150) 

OPEN(3,FILE - LINE, STATUS - 'OLD') 

REWIND (3) 

READ (3,100) INFILE 

READ (3,110) LENGTH,BEAM, DRAFT,DSPMNT 
READ (3,110) CB, XG, TRIM, TT 
READ (3,110) SPEED, AB, NRUD, ARUD 
READ (3,110) DEL_RUD, STERN, NPROP, DPTH 
REWIND 3 

**** NOW READ IT IN AS CHARACTER DATA TO PRINT TO SCREEN **** 

READ (3, 100) DATA_UP(1) 

DO 10 I = 2, 14,4 

11 ~ I + 1 

12 = I + 2 

13 ■= I + 3 

READ (3,120) DATA_UP(I),DATA_UP(II),DATA_UP(12),DATA_UP(13) 
10 CONTINUE 

100 FORMAT (A8) 

110 FORMAT (4G12.5) 

120 FORMAT (4A) 

150 CLOSE(3) 


**** WRITE UP THE DATA *********************************** * - 
CALL DATA_LBL(VD_ID,DATA_UP) 

CALL UIS$DISABLE_KB(KB_ID) 

CALL UIS$ERASE(VD ID,-.4,10.1,3.4,10.9) 
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CALL UIS$TEXT(VD_ID,7,'SELECT AN OPTION',011.) 

CALL UIS$TEXT(VD_ID,7,' WITH THE MOUSE ',0.,10.6) 

RETURN 

END 

************************ E nd READ FILE ********************* 
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